PRINTER | PACKAGE SPECTACULAR 


ALL PRINTER PACKAGES INCLU 


APPROPRIAT! 


Panasonic 


PANASONIC 1080i PRINTER PKG. 
WITH 
APPROPRIATE INTERFACE DEVICE 


IBM PC/PARALLEL CABLE... 
ATARI ST/PARALLEL CABLE... 
AMIGA/PARALLEL CABLE... 
C-64/128/KETEC SUPER GRAPHIC. 
ATARI 8-BIT/SUPRA 1150. = 
APPLE 2E/PRO GRAPPLE! 


NO SURCHARGES ON CREDIT CARDS 
FREE SHIPPING IN CONTINENTAL USA 


PANASONIC 10911 PRINTER PKG 
WITH 
APPROPRIATE INTERFACE DEVICE 


IBM PC/PARALLEL CABLE. 

ATARI ST/PARALLEL CABLE... 

AMIGA/PARALLEL CABLE. 

(-64/128/XETEC SUPER GRAPHIC, 

ATARI 8-BIT/SUPRA 1150... 

APPLE 2E/PRO GRAPPLER .... 
NO SURCHARGES ON CREDIT CARDS 
FREE SHIPPING IN CONTINENTAL USA 


PANASONIC 1092i PRINTER PKG 


WITH 
APPROPRIATE INTERFACE DEVICE 


IBM PC/PARALLEL CABLE. 
ATARI ST/PARALLEL CABLE. 
AMIGA/PARALLEL CABLE. = 
C-64/128/KETEC SUPER GRAPHIC... 
ATAPI 8-BIT/SUPRA 1150... 
APPLE 2E/PRO GRAPPLER.. 
NO SURCHARGES ON CREDIT CARDS 
FREE SHIPPING IN CONTINENTAL USA 


Tag Team Wrosting 25.95 
Tenth Frame. 


‘are $3.00. In Continental USA include $300 for sottware orders 5% shipping for hardware. minimum $$ 


FROM THE HONEST MAIL ORDER COMPAN' 4 


(ene putofebility 


SAL) STE 


Ste@ur’ 


por NX-10 PRINTER PKG 
ce? WITH 
APPROPRIATE INTERFACE DEVICE 


IBM PC/PARALLEL CABLE... 

ATARI ST/PARALLEL CABLE. 

AMIGA/PARALLEL CABLE. 

(C647 28/XETEC SUPER GI 

ATARI 8-BIT/SUPRA 1150. 

APPLE 2E/PRO GRAPPLER.... 
NO SURCHARGES ON CREDIT CARDS 
FREE SHIPPING IN CONTINENTAL USA 


NX-15 PRINTER PKG 
WITH 
APPROPRIATE INTERFACE DEVICE 


IBM PC/PARALLEL CABLE... $H9 

ATARI ST/PARALLEL CABLE... 

AMIGA/PARALLEL CABLE... 

(C-64/128/KETEC SUPER GRAPHIC. 

ATARI 8-BIT/SUPRA 1150. 

APPLE 2E/PRO GRAPPLER .... 
NO SURCHARGES ON CREDIT CARDS 
FREE SHIPPING IN CONTINENTAL USA 


NB-24/10 PRINTER (24 WIRE) PKG 
WITH 
APPROPRIATE INTERFACE DEVICE 


IBM PC/PARALLEL CABLE 

ATARI ST/PARALLEL CABLE. 

AMIGA/PARALLEL CABLE... 

C641 28/KETEC SUPER GRAPHIC 

ATARI 6-BIT/SUPRA 1150. 

APPLE 26/PRO GRAPPLER. 
NO SURCHARGES ON CREDIT CARDS 
FREE SHPPING IN CONTINENTAL USA 


ATARI 8-BIT 


Tor Taare 
SINCE 1962 
ompu 
Consumer flectronics 


P.O . BOX 17882. MILWAUKEE, WI 53217 
ORDER LINES OPEN 
Mon-Fri Sam-9pm CST Sat 11am-5pm 


0 Order Call Toll Free 


800-558-0003 


For Technical info, Order Inquiries, or for Wisc. Orders 


414-357-8181 


TELEX NUMBER 9102406440 
(ANSERBACK=COMPUT MILW UQ) 


64C COMPUTER C128 COMPUTER 
1541C DISK DRIVE 1571 DISK DRIVE 


1802C MONITOR 1902 MONITOR 
1581C DISK DRIVE C-128D COMPUTER 


CALL FOR INDIVIDUAL 
& SUPER PACKAGE PRICES 


1750 RAM EXPANDER 
COMMODORE 
1764 RAM EXPANDER PC-10 


1351 MOUSE 
PC COMPATIBLE 
AVATEX 1200 HC MODEM COMPUTER 
AVATEX 2400 HC MODEM 
1 CON TROLLER 
CALL FOR 


CURRENT PRICES 


Cor.\ FO 3 0):3 
CURRENT PRICES 


WAMIGA 
COMPUTER SYSTEM 
CALL FOR CURRENT PRICES & AVAILABILITY 


‘a 
EPSON 
PRINTER PACKAGES 
PRICES TO LOW TO ADVERTISE 


ALATAR 


520 ST & 1040 ST 
SYSTEM PACKAGES 
CALL FOR LASTEST PRICES 


ATARI ST 


Fairy Tale Adventure. 
First Shapes___. 
Fight Simulator W395 


No surcharge for Mastercard or Visa 


ORDERING INFORMATIONS pease speci stem. For tast ceiwery send cashier's check or money order Personal ang company checks alow 14 business dys o clear School PO's welcome COLD. charges 
é and signature. WI residents please i 5% sales tax HI. AK. FPO. APO. Puerto 


MasterCard and Visa orders please include card 


Rico and Canadian orders. please add 6% shipping, minimum $6.00. All other foreign orders add 154 shi 


‘minimum amount. you: will be charged the additional amount to get your package to you qu 


hange without notice 


ly and safely All goods are new and include factory warranty Due 10 ou 


rt USA. ae shoped fre class sured US mal foreign shipping charges exceed the 
‘ow prices all sales are final All defective returns must have a return authorization number. 


Piease call (414) 397-818! to obtain an RA # oF your return will not be accepted Prices and availabilty subjeci to char 


PwWWwWWw.commodore.ca 




















the variable A$ to the screen area. | ors blend well enough to appear to | ?)31®8 PRINT “PATTERNED SCRE 
You may change the name of the | be a new color. A patterned screen EN FILL" 
variable in your own programs, but | fill is done in the demo program in M315 GOSUB 1998 
it must be the first variable used in | lines 320-360. Use this table to re- mses aed ee aa Sho ruenae Be 
Er ’ 
the program. place the numbers in lines 320 and CAUSE USING GR. 7 
Once the string is reassigned to | 340 for other color combinations. | !54@ A$(41,41) =CHRS(153):R 
the screen, any operations you per- | Colors Values ase aN Caataniens stelelels 
form on the string will show upon | Oand1 —17, 68 M34@ AS(81)=AS:REM DUPLICA 
the screen. pandas 34, 136 TE FIRST 2 LINES DOWN 
A and3 511, 204 ENTIRE SCREEN 
__Addressing the screen os @)yand2 102, 153 4379 BOSUB 1999 
string may seem awkward at first, | 1 and3 119, 221 400 REM **€SERae EE 
but it is incredibly fast. Once you | 2and3 187, 238 [rrom [ed 
un mdi 1 fewt , 3 IN41® PRINT “DUPLICATE PART 
unaee ee ne Yes ae Se For instance, if you want to use OF SCREEN" 
mL eP Crea : colors 2 and 3 in the demo, replace | &415 SOSUB 1000 
nipulations with machine language arn ; (420 FOR X=@ TO 159:COLOR 
speed, In the case of the GRAPH the 102 in line 320 with 187 and X/54 
peed. replace the 153 in line 340 with | *43@ PLOT X,@:DRAWTO X/2,7 
ICS 7 screen, a byte represents four | 538 9 
pixels. This makes color selection A F : _. | (?44@ NEXT X 
th aauarneeadee hue oath For instructions on entering this | jase FOR I=1 TO 3 
rather odd. Instead of using the 14 
COLOR statement to select colors program, please refer to “COM- | m54@ as(Ixeg0+1, Ixage+809) 
PUTE!’s Guide to Typing In Pro- =AS:IREM 899 FOR 28 LI 
0-3, the values 0, 85, 170, and 255 ” F ie NES 
s grams” elsewhere in this issue. (570 NEXT I 
represent the four different colors. reas Bee Ar 
Although the memory repre- | gy > 
i e y ‘ tinging The At (1608 REM * S@SCCN MESSE 
sentation makes working with solid ging the: Atarl'screen IAPPING Ty 
colors rather arcane, it makes work- | 01 REM COPYRIGHT 1987 com | #610 rae “SCREEN FLIPPIN 
i ‘ PUTE! PUBLICATIONS, INC 
ing with patterns a breeze (for an . ALL RIGHTS RESERVED. | #620 Bs=as 
example, see the Atari version of | 92 PRINT "{CLEAR?":POSITIO | %63@ FOR Y=i TO 38:COLOR R 
Laser Chess™ in the July 1987 issue Na caMe ORR DSR CBR yA Tane: le Las Ne eee STS ARe 
P 1987":POSITION 7,19:PR , 
of COMPUTE!). In some graphics INT "COMPUTE! Publicati )879:DRAWTO RND(O) £15 
modes such as mode 15 (available ons, Inc.” 9,RND(8)&79 
only on XLs and XEs), the two col- | &3 POSITION 19,12:PRINT "A W658 NEXT Y 
11 Rights Reserved" &66@ FOR K=1 TO 38 
4 FOR I=1 TO 1500:NEXT I 670 TEMPS=AS: AS=BS: BS=TEM 
1019 GRAPHICS 7:CLR :DIM AS Ps 
(49389) ,COL(4),B8(4o%e8 | 01680 NEXT K 
0), TEMPS (49%80):AS(49x | 69H GOSUB 1008 
— 88) =CHRS(9) F768 REM * SMC Cees 
M20 VTAB=PEEK (134) +PEEK (13 LAPPING 1B) 
5) #256 11719 PRINT “PARTIAL SCREEN 
A NEW FORM OF WRITE PROTECTION "B30 ATAB=PEEK (148) +PEEK(14 SWAPPING":? " (TOP W 
Se i 1)*256 ITH BOTTOM" 
AT Wide Ito Sipe St. hie) Mee Sores "49 OFFS=PEEK(88)+PEEK(89) | 728 FOR K=i TO 30: BS=AS(1 
See ccatey tia ratek tem Whe neces a £254-ATAB 40249) :AS(1, 40240) =A 
(050 HI=INT(OFFS/256) :LO=0F S(4OE4041) 1 AB (4OR404+1 
FP-AB? sides out just as easily to allow the FS-HI£256 .=BS:NEXT K 
ciak stor ba lerittent- #69 POKE VTAB+2,LO:POKE vT | E800 REM *SmGIeaIeGIMs 
4 P-ABP \s good for the life of your disk. AB+3,HI 6818 PRINT "ANIMATION" 
eee | 2820 AS(1, 1) =CHRS(8)2AS(2) 
FP-ABY \s light in color allowing It to be 70 REM ¥ SMELT Mes Shame ; 
Viewed when the disk Is Installed In the drive Gates 
just by glancing at the drive door. 75 PRINT “SOLID COLOR FIL | )83® FOR T=8 TO S 
L":G0SUB 1999 (E84@ COLOR 1:FOR Y=1 TO 19 
FP-ABY sells for $1.39 per pkg of ten (10). P)@S9 FOR T=9 TO 4:READ COL: :COLOR Y:PLOT T+4,Y+T 
Please include $.50 for shipping and handling. * 
Sorry. no COD, or credit cord orders. COL(T) =cOL #20: DRAWTO T+30+4, Y+T 
9D AS(1,1)=CHRS(COL) %20:NEXT Y 
ORDER TODAY! 1109 AS(2)=AS 850 NEXT T 
Rea TIPRGIECT W195 GOSUB 1999 0855 GOSUB 1998 
{ (F119 NEXT T 16869 BS=AS 
F120 DATA 9,85,178,255,0 8870 AS$(1,1)=CHRS(O):AS(2) 
SS Sree 200 REM ** MQM =as 
[CREEN TTY FABBO X=1G:Y=19:DX=1:DyY=1 
1 #E21@ PRINT “PARTIAL SCREEN | &890 X=X+DX:Y=Y+DY 
=| FILL":FOR T= TO 3:W LE9@D IF X=199 THEN DX=-1 
HERE=4902T+1:REM USE (1918 IF X=5 THEN DXx=1 
499 BECAUSE 19 LINES IN920 IF Y=60 THEN DY=-1 
OF 40 BYTES EACH 93 IF Y=é THEN DY=1 
] 40228 AS (WHERE, WHERE) =CHRS( | M940 H=INT(X/4):L=X-H84 
COL(T)) 9950 AS(H+4G8Y+1,H+4O4Y+48 
K 238 AS (WHERE+1, WHERE+399) 0) =BS(L8899+1,L*800+4 
=A$ (WHERE, WHERE+398) : 80) 
REM DO 19 LINES H968 GOTO 890 
NEAR FUTURE COMPUTER W235 GOSUB 1909 81999 FOR DELAY=1 TO 199:N 
P.O. Box 1726 0) 248 NEXT T EXT DELAY 
@ Walla Walla, Wa 99362 4308 REM SX@GNRRSCiMs | (1919 RETURN (or 
(509) 525-3288 * 
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SOFTWARE DISCOUNTERS 


OF AMERICA 


For Orders Only — 1-800-225-7638 
PA Orders— 1-800-223-7784 
Customer Service 412-361-5291 


ACCESS 

10th Frame Bowling. . 

ACCOLADE 

Ace of Aces 

Mean 18 Golf 

Mean 18 Famous 
Course Disk #2.....$14 

Mean 18 Famous Course 
Disks 3 & 4 $23 

ACTIVISION 


$29 


$24 
$30 


Strip Poker 
Data Disk «1 Female 
Data Disk #2 Male . 
Data Disk #3 Female 
Linkword Languages: 

Dutch 

French 

German 

Italian 

Russian 

Spanish 
AVALON HILL 
Dr. Ruth’s Game 
Super Bowl Sunday 
S.B.S. Champs Disk 
S.B.S.’85 Team Disk... 
5.B.S. '86 Team Disk 
BRODERBUND 
Ancient Art of War 
Ancient Art of 

WaratSea 
Bank St. Writer Plus 
Business Week's 

Business Advantage . 
Carmen Sandiego 


Karateka 
Memory Mate 
Print Shop 
P.S. Companion . 
P.S. Graphics Li 

Holiday Edition 
P.S. Graphics 

Library #1 or #2. .$21 Ea. 
P.S. Paper Refill $14 
Search & Destroy... $9.88 
Toy Shop $32 
Toy Shop Refill 319 
Type! $30 
CENTRAL POINT 
Copy 2 
PC Option Board 
PC Tools 
DAC 
Easy Accounting 2.0 
Easy Payroll 2.0 
DATA EAST 
Commando 
Tag Team Wrestling 
DAVIDSON 
Algeblaster 
Grammar Gremlins 
Homeworker 
Math Blaster 
Spellit 
Word Attack 


$23 
$79 
$23 


$44 


IBM SOFTWARE 


ELECTRONIC ARTS 


MONOGRAM 


ACCESS 





Software Classic Series: 
Archon $9.88 
Mind Mirror $9.88 
Music Const. Set ....$9.88 
One-on-One $9.88 
Pinball Const. Set ...$9.88 
Seven Cities Gold . $9.88 
Super Boulder Dash .$9.88 
ELECTRONIC ARTS 
Arctic Fox $23 
Chessmaster 2000... ..$26 
Chuck Yeager’s Advanced 
Flight Simulator . .. $26 
Empire sesgescall 
Grand Slam Bridge... $39 
Marble Madness $23 
Scrabble $26 
Starfleet 1 or2 $32 Ea. 
Starflight $32 
World Tour Golf $32 
ENLIGHTENMENT 
Guide to Chess Openings $39 
Paul Whitehead 
Teaches Chess 
EPYX 
Create A Calendar 
Destroyer $24 
Pitstop 2 $9.88 
P.S. Graphics Scrapbook: 
“1 Sports $16 
#2 Off the Wall... $16 
#3 School $16 
Sub Battle Simulator . $24 
Summer Games 2 $24 
World Games $24 
GAMESTAR 
Champ. Baseball 
Champ. Basketball 
Champ. Golf 
GFL Ck. Football 
HAYDEN 
Sargon 3 Chess $24 
HI-TECH EXPRESSIONS 
Award Ware $9.88 
Card Ware $6.88 
Party Ware $9.88 
INFOCOM 
Bureaucracy 
Hitchhikers Guide 
Hollywood Hijinx 
Leather Goddesses 
Stationfall 
The Lurking Horror 
Zork 1 3 
Zork Trilogy 
INTRACORP 
Business Card Maker 
MECA 
Andrew Tobias: Managing 
Your Money 2.0 , . $129 
MICROPROSE 
F-15 Strike Eagle $21 
Gunship. $32 
Silent Service $21 
MINDSCAPE 
Balance of Power 
Bop & Wrestle 319 
Crossword Magic $30 
Defender of the Crown $24 
Infiltrator $19 
Perfect Score SAT ... $44 
Super Star Ice Hockey .$24 


$39 


$19 


$24 
$24 
$24 
$24 


$24 
$19 
$24 
$24 
$24 
$24 
$24 
$44 


$39 


$30 


Dollars & Sense......$109 
SHARE DATA 
Jeopardy 
Wheel of Fortune 
SIERRA 
Black Cauldron 
King’s Quest 
1,2,0r3.... 
Leisure Suit Larry 
Space Quest . 
SIMON & SHUSTE: 
Chem Lab ..... $24 
Promethean Prophecy .$24 
Real Estate Investment & 
Management $65 
Typing Tutor 4 $30 


$8.88 
- $8.88 


$24 


-$30 Ea. 
$24 
-$30 


Falcon F-16 Sim 
SPINNAKER 


T-Shirt Art #1 
SPRINGBOARD 
Certificate Maker... 
CM. Library «1 
Early Games . 
Newsroom Pro - $89 
N.R. Clip Art #1 or 3$19 Ea. 
N.R. Clip Art #2 $24 
P.S. Graphics Expander $24 
Sst 
Battle of Antietam 
Gettysburg 
Kampfgruppe 
Phantasie 
Rings of Zilfin 
Roadwar 2000 
Shard of Spring 
Wizard's Crown 
SUBLOGIC 
Jet $32 
TELARIUM 
Amazon 
Dragonworld 
Fahrenheit 451 
Nine Princes 
Perry Mason $9.88 
Rendezvous $9.88 
THUNDER MOUNTAIN 
Top Gun - $6.88 
TIMEWORKS 
*Data Manager 
Evelyn Wood Reader 
Partner -. $39 
“Swiftcalc wiSideways .$39 
Sylvia Porter's Financial 
Planner $59 
*Word Writer $39 
*All3 in 1 Power Pack $79 
UNISON WORLD 
Fonts & Borders 
Newsmaster 
Printmaster Plus 
Art Gallery 1 or 2 
WEEKLY READER 
Stickybear Math 
Stickybear Numbers $23 
Stickybear Reading .. .$23 
Stickybear Spellgrabber $23 
Stickybear Typing ....$23 


$30 
--$36 
$36 
$24 
$24 
-$24 
$24 
$24 


$9.88 
$9.88 
$9.88 
$9.88 


--$233 
$59 

- $36 
S19 Ea. 


$23 





Famouse Course Disk 


APPLE II SERIES 


ti 
Raid Over Moscow .$14 


World Class 
Leader Board ... 

ACCOLADE 

Hardball 

Hardball GS 

Killed Until Dead 

Mean 18 Golf GS 


ibrary Disks: 


Sci-Fi or Sports 
Gamemaker 
Ghostbusters . 
Hacker2....... 
Hacker 2GS e 
Might & Magic .. 
Music Studio GS 
Paintworks Clip Art GS 
Paintworks GS 
Portal 
Shanghai 
Shanghai GS 
Tass Times GS....... 
Writer's Choice Elite GS - 
ARTWORK 
Bridge 5.0 é 
International Hockey . . . 
Strip Poker ......-.... 
Data Disk 1 (Female) 
Data Disk #2 (Male) 
BAUDVILLE 
Award Maker Plus 
French Paper Pack 
Video Vegas.........- 
BRODERBUND 
Animate 128K... 

Bank St. Writer 

Plus 128K 

Carmen San Diego 


S16 Ea. 


$30 


<2 $9.88 
--$24 


$29 


- 330 


47 


319 


S47 
$27 
$21 


--$29 


$24 
+7 


319 


Dazzle Draw 128K ... . - 


Fantavision.... 
Karateka 
Loderunner 
On Balance 128K .. 
Print Shop Enhanced 
Print Shop Companion . 
Print ShopGS...... 
PS. Graphics 
#1,20r3 . +3 
P.S. Graphics Library 
Sampler Edition GS 
Science Tool Kit 
Toy Shop 
Type! 
Wings of Fury . 
CENTRAL POINT 
Copy2 ... 
DAVIDSON 
Algeblaster......... 
Grammar Gremlins 


© Free shipping on orders 

over $100 in continental USA 
© No Surcharge for VISA/MasterCard 
e Your card is not charged until we ship 


Math Blaster......... $27 


DATA EAST 

Commando. 

Tag Team Wrestling 

ELECTRONIC ARTS 

Age of Adventure 

Archon or2..... 

Arctic Fox... 

Bard's Tale GS 

Bard's Tale 2 4 

Chessmaster 2000 . . 

Deluxe Paint II GS 

D. Paint Art “1 GS 

D. Paint Art *2GS. 

Earth Orbit Station 

Instant Music GS. 

Lords of Conquest . . 

Marble Madness 128K , .$23 

Moebius 

Movie Maker 

Music Const. Set 

Music Const. Set GS 

One-on-One 

Pegasus. 

Pinball Const. Set 

Russia (The Great War). $26 

Scrabble... .. $26 
$9.88 
$9.83 

$32 

$9.88 


1 Sports 

2 Off the Wall 

3 School 
‘Sub Battle Simulator 
Sub Battle Sim. GS 
Summer Games 2 5 
Temple Apshai Trilogy . 
Winter Games ....... 
World Games... ...... 
FIREBIRD 
Elite. 
Guild of Thieves 
Starglider 
GAMESTAR 
Champ. Baseball 128K ..$24 
Ch. Basketball 128K . -. .$24 
Champ. Football 128K . .$24 
Top Fuel Eliminator 128K $19 
HI-TECH EXPRESSIONS 
Award Ware $9.88 
Card Ware 6.88 
Heart Ware ‘$6.88 
Party Ware $9.88 
INFOCOM 
Bureaucracy 128K 
Hitchhiker's Guide 
Hollywood Hijira 


$24 
- 519 
----524 


Andrew Tobias: Managing. 
Your Money 2.0 

MICROLEAGUE 

Baseball . 

Box Score Stats. 

General Mgr.Owner. 

1986 Team Disk 

MICROPROSE 

FA15 Strike Eagle 

Silent Service 

Silent Service GS 

MINDSCAPE 

Bop & Wrestle 

Defender of the 
CrownGS.......... 

Infiltrator . 

Perfect Score SAT. 

MONOGRAM 

Dollars & Sense 128K . .$69 

PERSONAL CHOICE 

Term Paper Writer 128K $32 

SHARE DATA 

Family Feud.. 

Jeopardy 

Wheel of Fortune 

SPRINGBOARD 

Certificate Maker 

C.M. Library Vol. 

Newsroom 

N.R. Clip Art #1 or #3 

N.R. Clip Art #2 

STYLEWARE 

Multiscribe 2.0 128K . 

Multiscribe 2.0GS ... 

ssi 

Battlecruiser. . 

Eternal Dagger 

Gettysburg ......... .$35 

Phantasie 1,20r3 .$24 Ea. 

Realms of Darkness .. .$24 

Rings of Zilfin, . $24 

Roadwar 2000. $24 

Shard of Spring. ......$24 

War inS. Pacific... ..$35 

Wizard's Crown ......$24 

SUBLOGIC 

Flight Simulator 2... .$32 

FS. Scenery Disks ....Call 

Jet pi ipespennr $26 

WEEKLY READER 

Stickybear ABC's $23 

Stickybear Math 1 or 2 $23 Ea. 

Stickybear Numbers . .$23 

Stickybear Printer... .$23 

Stickybear Shapes ... .$23 

Stickybear Spellgrabber $23 

Stickybear Typing ....$23 

WINDHAM CLASSICS 

Alice in Wonderland . $9.88 

Below the Root .....$9.88 

‘Swiss Family Robinson $9.88 

Treasure Island . ... .$9.88 

Wizard of Oz - $9.88 


Commodore 64 & 128 Owners: Please read our 
full page ad in this month’s Compute’s Gazette! 


P.O. BOX 111327 — DEPT. CP— BLAWNOxX, PA 15238 


"Please Read The Following Ordering Terms & Conditions Carefully Before Placing Your Order: Orders with cashiers check or money order shipped immediately on in stock items. 


Personal & Company checks, allow 3 weeks clearance. No C.O.D.’s! Shipping: Continental U.S.A.— Orders under $100 add $: 


ree shipping on orders over $100. AK, HI, FPO, 


APO—add $5 on all orders. Canada & Puerto Rico—add $10 on all orders. Sorry, no other International orders accepted! PA residents add 6% sales tax on the total amount of order 
including shipping charges! REASONS FOR CALLING CUSTOMER SERVICE — 412-361-5291 (1) Status of order or back order (2) If any merchandise purchased within 60 days from S.D. 
of A. is defective, please call for a return authorization number. Defective merchandise will be replaced with the same merchandise only. Other returns subject to a 15% restocking 
charge. After 60 days please refer to the manufacturers warranty included with the merchandise & return directly to the manufacturer. Customer service will not accept collect calls or 
calls on S.D. OF A.’s 800+ orde: ! Have you seen our on line catalog of 1000 software titles for Commodore, Atari, Apple, IBM and Amigat It’s on Compuserve's Electronic Mall — 
just type GO SDA and shopping for software will never be the same again! HOURS: Mon.-Fri. 9AM-5:30 PM, Sat. 10AM-4PM Eastern Time. Because this ad had to be written 2-3 mos. 
before it was published, prices & availability are subject to change! When sending a mail order, please specify make & model of your computer! 
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Laser Chess™ Mixup 

Last month’s “CAPUTE!” column 
mistakenly stated that the Atari 
version of Laser Chess on the April- 
June COMPUTE! Disk could not be 
run from the disk menu. Actually, 
Laser Chess runs just fine when 
selected from the menu of the Atari 
disk. It is the Commodore 64 ver- 
sion of Laser Chess on the May-July 
Commodore edition of the COM- 
PUTE! Disk that will not run proper- 
ly when loaded from the menu. We 
regret any confusion this may have 
created. 

The problem with the Commo- 
dore 64 version does not occur until 
a playing piece is destroyed by a 
laser blast. If the game is loaded 
from the COMPUTE! Disk menu, it 
will lock up at the end of the explo- 
sion animation sequence. This 
problem does not occur if the pro- 
gram is loaded directly. To run the 
Commodore 64 version of Laser 
Chess from the COMPUTE! Disk 





CAPUTE! 


without using the menu, simply use 
the command LOAD ‘’LASER- 
CHESS.JUN”,8 and type RUN. 


Smart Alec 

Line 1419 in Program 1 from this 
article for the Commodore 64 in the 
September issue (p. 81) contains a 
spurious question mark and is miss- 
ing the final digit. The line should 
read as follows: 

1419:F6 A9 00 99 A7 02 AA A5 01 


IBM Monte Carlo 


Enhancements 

The IBM version (Program 5, p. 35) 
of this card-game program from the 
September issue works properly as 
printed, but reader Robert St. John 
was disappointed at the lack of 
color and the fact that the program 
recognizes only lowercase letters. 
Other readers with color monitors 
may want to try his suggested 
changes and additions to enhance 
game play: 





119 


149 


178 











KEY OFF:WIDTH 49:COLOR 1, 
2,2 

DIM C$(52),COL(S52) ,V$(13) 
»7$(4),CL(4) 

READ A:T$(I) = CHRS(A):RE 
AD CL(I):NEXT 


Jl 288 DATA 3,4,4,4,5,9,6,9 

*K 236 COLOR CL(J):PRINT" "5 
VS(1) 5 TS(I)5 

0 258 COLOR 1 

#8 303 IF C$(P)="" THEN C$(P)=V$s 


342 


372 


38s 


382 


384 


386 


388 


398 
450 


598 
639 


779 


(J) +T$(I) :COL(P) =CL(1):60 
TO 338 

LOCATE 17,5:PRINT SPACES( 
28) 

PRINT:PRINT TAB(11)"Press 
Q@ to quit” 

AS=INKEYS: IF AS="" THEN 3 
eo 

IF AS="h" OR AS="H" THEN 
C=4:G0TO 420 

IF AS="m" OR AS="M" THEN 
C=5:GOTO 420 

IF AS="e" OR AS="E" THEN 
C=#6:GO0TO 420 

IF AS="q" OR AS="Q" THEN 
CLS:END 

GOTO 38d 

COLOR COL(CT):PRINT " 
"3CS(CT); 
C$(I)=C$(I+1):COL(1I)=COL( 
I+1) 
C$(1I)=C$(I+1):COL(I)=COL( 
I+1) 

IF AS="q" OR AS="Q" THEN 
RUN e 





Copies of articles from this 





@ojabertoreleyns 
Saturday & Sunday 


October 3 & 4, 1987 
10 a.m.—6 p.m. 


THE DISNEYLAND HOTEL 
ANAHEIM, CALIFORNIA 


The Commodore Show 
Is the only West Coast 
exhibition and confer- 
ence focusing exclu- 
sively on the AMIGA, 
Commodore 128 and 
64, and PC 10 market- 
place. Enjoy the Magi- 
cal Kingdom of Disney 
along with thousands 
of Commodore Users. 


COMMODORE SHOW 


ADMISSION 10 


DISCOUNT ON DISNEYLAND TICKETS 
AVAILABLE 


EXHIBITS, EVENTS 


AND DOOR PRIZES 


NATIONALLY KNOWN 
COMMODORE 
SPEAKERS 

i SHOW SPECIALS 
AND DISCOUNTS 


M SEE THE LATEST 
INNOVATIONS IN 
HARDWARE AND 
SOFTWARE 


TECHNOLOGY 


For More Information or to Reserve Exhibit Space, Contact 
Y, RK PRODUCTIONS 


P.O. BOX 18906, SAN JOSE, CA 95158 
(408) 978-7927+800-722-7927+IN CA 800-252-7927 

















publication are now available from 
the UMI Article Clearinghouse. 


For more information about the 
Clearinghouse, please fill out and mail back 
id premrexolty ofeye mm of-4 (ay 


Article 
sarmnshouse 


Yes! I would like to know more about UMI Article Clearinghouse. 

I am interested in electronic ordering through the following system(s): 

CO DIALOG/Dialorder 

CO OnTyme 

C Other (please specify). 

Olam interested in sending my order by mail. 

Please send me your current catalog and user instructions for the 
system(s) I checked above. 


OITT Dialcom 
OOOCLEC ILL Subsystem 





ING 





2 ————————— 
Institution/Company. 

Department 
Address__ 
City. State. 
Phone ( ) 


Mail to: University Microfilms International 
300 North Zeeb Road, Box 91 Ann Arbor, MI 48106 
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ve : 
Gy : : Includes 
wh (6) MS-DOS! 

The one Stop shop XT compat ond S12 K. 

ORDERS ONLY Le RAM. Includes 51%" 360 KB 


—— floppy disk drive, low profile 
SUB Oe sais f keyboard, high resolution 


1-800-CALL TRU oii. output (720x350 pixels), 


(1-800-225-5878) Co Say centronics parallel and RS232 


printer ports, six expansion 
ORDER STATUS, INFORMATION, RA.s Dols lnclidss Gbbravicied 
CALL 1-313-595-0788 MS-DOS 


1200 BAUD MODEM KIT T Panasonic Dot Matrix Printer 

memaangn a Kx 108017809 
a a) Pr 

$419 520ST™ °489 Ba 


Mono © Print speed (cps) 
* Avatex 1200 HG! WITH BUILT IN DRIVE KP 1081 Dra 160 
° ST or PC Software With 4 MEG Upgrade 


e Compuserve Starter Kit 
° RS-232 Cable M-F Already Installed) 


e Phone Cord care 


Super Special Seagate 
PC-XT HARD DRIVE KIT s TAR TER KIT 


$299 * IBM-ST cable 

5 5 20 MEG YZ © 200 pack paper 
omplete with: 5 © Heavy duty metal 

Western Digital Controller pricing on oy ATARI printer stand 


and Mounting Hardware other models. . >) mee” Fi ® Vinyl dust cover 
3/2” Continuous Label Kit 


© 500 31/2" Disk Labels $Q)95 BONUS! FREE STARTER KIT LKSis DISKS 


© FREE Label Program 


Automatically Reads © 31/2” Label Kit 15) @) 5 DS DD 
= IE F) 


Disk and Makes Labels ¢ Dust Cover 
¢ 31/2" Disk Head Cleaner VALUE 


* Create Database 
ATARI ST ‘Space Quest 25 TBM PC Keyboard Ubrary Case (525) 62300 
‘Sweicaic ST. 5295 BM PC System oe Lirary Case-5 (35) TTL Monitor 119.00 
Time Bands 2685 Panasonc 10609091 695 Pocket Pack G5) 4 CONTROLLERS _ 
VIP Protessione'. 1665 SF 314 ae DISKETTES ‘Atal Economy, 
WordWrter ST 5295 Sts eo Buk 35° SSDO t Epyx 500K) 
ST HARDWARE SM 124 nes| | Geeple ’ Replacement Mouse ($7) 
Atan }040ST fac 2 
fan a Oe isco J CABLES, INTERFACES J soi35:ss00 eos J Tact0 ws APE 
‘Atari 354 Drive 105.00 AB Swaicn Box Paraliel Maxet 35° DSDO_ 295 Wico 3-Way. 
‘Aten SC1226 Color Monitor. 299.00 AB Swaich Box RS-232. Maxel 525° SSD Weo Boss 
‘Atari SH204 Hard AB-X Crossover Box Par. Maxet 525° DSDD. 7.95 
‘Atari SM124 plete bers IBMST Printer Cabee 10’ Maxel 525" DSHD 3 IBM HARDWARE 
‘Supra 20 Meg Hard Dave 549.00 |SMST Prnter Cable 6 Sony 35° SSDO. fate 
+ Microstfier ‘Sony 35° DS'(D0. 5 59.95 
png a ae RSZ2 FFE Sony 525° SSDO mee 
Z-Time 520 RS-232 MF 10 Sony 525° DSO Q 7595 
AS-Z22 MF 6 Sony 525° DSHD 2 } 
PRINTERS RS232MM 6 3 RIBBONS Be 
Canste Dyteeiet bs ST Dave Cable 6 3895 
Panasonic KX-P103ti é ACCESSORIES 
Panasonic KX-P1082 T Archon 
Panasonic KX-P1592. 2s Balance of Power, 
Panasonic KX-P1595 7. F-15 Stnke Eagle 
Panasonic KX-P3151 7. Fight Senutator. 
Panasonic KX-P3131 King’s Quest I oF tt 
THOMSON MONITORS Lous 123. 
DUST COVERS 4160 CGA Color Meck Wiliams C 
1040 ST - 450A Monoctrome - 132 CLM = a 
Gonkild: 525° 4350 EGA Dual Scan.__ 469,00 




















No surcharge for MasterCard @ or Visa 7 


All orders are considered verbal contracts and adhere to all laws as set by the Federal Trade C ission. All order cancellations will be charged 5%. Ordering Information: Credit Card - 
Have number, expiration date, shipping address and DAY phone number ready with or: and company checks: Call order in - you will receive an order number. Send order 
number and check to the P.O. Box listed. Allow 14 Business Days for check to clear. Mon Call order in - you will receive an order number. Send number with money order to 
P.O. Box listed. Shipping: Continental USA - All Orders add 3%, minimum $3.00. HI, AK, Cant dd 5%, minimum $5.00. All other order areas add 15%, minimum $10.00. No C.O.D’s over 
$100.00, add an additional $3.00 shipping charge for C.O.D. All areas not serviced by U.P:S. will be shipped first class insured mail. All shipping charges in excess of the above items will be 
added. All orders are shipped on a first come first served are usually shipped immediately. Please allow 2-3 weeks delivery time. All goods are new and include factory warranty. 
All defectives must have a return authorization number. -all (313)595-0788 to obtain an R.A.# or return will not be accepted. Prices and availability subject to change without notice. 
All correspondence should be sent to P.O. Box 75 - Wayne, MI 48184. “SATISFACTION REFUND - IS LESS SHIPPING & HANDLING - Call for Details. 


Not responsible for t faphical errors. 
: a ©www.commodore.ca 
















Facilitating. 


ill 


ie 
iD 
SS 
ie 


Fastand 


DISKETTE DUPLICATION 

All formats. Quality tested. From 25 

to 1000 duplicated in 24 hours—25,000 
per week. 


PRINTER 






ine, 


- SB 
MIGA 500 CALL 2500 


IGA 2000 CALL 





COPY PROTECTION 
NoClone copy protection. Each appli- 
cation uniquely encripted. 


DOCUMENTATION PRODUCTION 
Complete coordination service. Text 
printing. Custom sleeves, labels and 
tabs. 


PACKAGING ASSEMBLY 


PANASONIC 








HARD DRIVES SEAGATE 
CALL 


155.00 
175.00 
ALL 





WE WILL MEET OR 
BEAT ANY ADVERTISED 
PRINTER PRICE 





419.00 
y CALL 
$399.00 





Full turnkey service. All types of 
binders. Shrink wrapping and ship- 
ping cartons. 


DELIVERY FULFILLMENT 
Computerized inventory. Pick and 
ship to your customer list. National 


PF: rit 
First Chigce 


MQDEM 

MONITORS 

EXCELLENT PRICES ON 300, 

1200B MODEMS AND COLOR 
MONITORS 








A 
ALL 





delivery service. 


3.5 /5.25 Incompatibility??? 












CALL. FOR OTHER NOW SOLVED!!! 
Sel ANGWARE With our MW-777 Switch 
MICRO WORLD ELECTRONIX, INC. 
3333 S. WADSWORTH BLVD LAKEWOOD, CO 80227 


SALES 1-800-288-8088 CUST. SVC. (303) 988-5907 
Manufacturer's warranty honored. Prices subject to change. 





ASCIONE* 


DISKETTE DUPLICATION AND PRODUCTION 
1050 North Fifth Street, San Jose, California 95112 
(408) 947-1161 OUTSIDE CA: 1-800-826-4296 























A Complete Pro Football 
x Prediction Program For The 
oe 1987 NFL SEASON 








BEAT THE SPREAD 
a k 7495 


Predicted Scores Each Week 


INCLUDES DISK AND 
DOCUMENTATION 
SPECIRY 5% OR 3% DISK 





* IBM, Tandy & Compatibles 
Season Schedule By Week ° cainiiaders 64 — 128 
Season Schedule By Team © Apple ll+ — Ile — lle — Iigs 
Scores By Week © TRS 80 Mill / IV 


Scores By Team 
Win Loss Record Home/Away 
Division Standings 

Stats — Accumulated & Average 
Line By Week 

Line By Team 

Record vs Line 

Record vs Common Opponents 
Individual Team Match-Ups 
Printed Copy All Screens 
1983-1986 Data Base 

Includes All of the Above) 

° Easy Updates Playoffs/1988 

Not Copy Protected 
Dealer Inquiries Invited 










Stats Needed To Run Program Available In 
Local Newspapers Or We Will Furnish All Stats 
By 1st Class Mail. Season Price 40°°. 


Our Bulletin Board Will Furnish All Stats, Lines, 
Predictions and Trends Updated Daily. Season 
Price 55°°. Program Comes Updated Thru Current 
Week of Season . . . No Extra Charge. 








ORDERS SHIPPED IN 2 DAYS 
PHONE LINES OPEN 24 HRS. 
ADD 3° SHIPPING & HANDLING 
TOLL FREE — 800-722-2277 
TEXAS COLL. — 214-586-8212 


MaratHon Software Dept. C 
P. 0. BOX 1349 — 641 FORT WORTH ST. 
JACKSONVILLE, TEXAS 75766 




























































115 Nassau St.Bet. Beekman & Ann Sts. 
NY.,NY. 10038. [Sa 330- —4500 Open a 8:30-6:30 
30-—6/ Sun, 9:30—5 


PHONE and MAIL ORDERS 
CALL TOLL FREE 


ALL COMPUTERS & PERIPHERALS COME COMPLI T 
AC ADAPTOR, OWNER’S MANUAL AND ALL CONNECTING 
CABLES. 


EPSON equity 


IBM PC/XT_| COMPUTER 
COMPATIBLE| PACKAGES 
COMPUTER 


OPEN SEVEN 
DAYS A WEEK 
FOR ORDERS 


pescene 


IBM_XT_ HARD 
DRIVE PACKAGE 


+1BM XT Computer - IBM 
256K RAM. 


ay u 
PACKAGE 


o Equity ll Compater 649K 


IBM 
PERSONAL SYSTEM II 
EQUITY 1+ PACKAGE 
PACKAGE MODEL 30 
-1BM Computer -Two 720K 
Drives - 640K RAM 

Graphics + Serial and Pa 


” $1379" 


IBM PERSONAL SYSTEM \\ 
‘MODEL 50... $2749 


dable to 640K + 360K 
Drive-20MB Hard Drive~ 
Optional - Package of 


$1499" 


18M XT PI 
FLOPPY DRIVES. 


HP LASERJET 
SERIES I 
STAR SG—10C 
STAR NX—10 
STAR NX—10C 
STAR NL—10 
STAR NX—15 


+ OK RAM 360K Floppy 
+ Drive Saral/Paralidl Ports 
+ Clock Calendar Keyboard 


Surial/Paratel Ports 


999" 


© 12" Monitor 
EQUITY Il PKG. w/1 360K 
‘DRIVE & 1 20MB HARD 


$799" 
DRIVE ..$1199 
EPSON FX—86 
EPSON FX—286E 
EPSON LQ—800 


EPSON LQ-1000 

ec. RARE Ane 

—— B. PANASONIC 1091 | 
PANASONIC 1092 


7 BLUE CHIP 
IBM PC/XT 
\COMPATIBLE PCKG. 
+ Blue Chip 


Keyboard + 512K 
Expandable to 
640K «6 


“Giiss 


STAR ND-15 
STAR NR-15 


$309.95 
439.95 


695.95 
449.95 i 


$179.95 
$179.95 
$189.95 | STAR NB—-15 
$239.95 | OKIDATA 120 
$309.95 & OKIMATE 20 


G commodore 
PC10—1 PACKAGE 
IBM PC/XT Compatible 
+ PC10-1 
Computer * 512K 
Expandable to 
640K - 360K Disk 
Drive « Enhanced 
Keyboard-Serial & 
Parallel Ports 
+ 12" Monitor 
+ All Hook—up iasee 


SS 
& Adaptors = 10 $5 49% 


AMIGA 
AMIGA 1000 
512K SYSTEM 

512K Computer 
with Built-in 

Disk Drive and 
1080 Color Monitor 


$949* 


Expansion Slots- 
Optional 20MB 

Hard Drive « All 
Hook-up Cables 


SPECIAL & Adaptors « 


$529" 


Diskettes 


PC10—2 640K Computer Lh 
w/2 360K Floppy Drives AMIGA 2000. 


COMPUTER PACKAGES : 
Get it all together & save! 


pe COMPLETE " COLOR 
C= GAC packace C= OAC packace 
=Commodore 64C Computer 


=Commodore 1541C-Disk Drive 
*Commodore Color Printer 
*Color Monitor 

With Geos Program! 


$529* 


Cz 128= DEE 
x = PACKAGE 
*Commodore 128 Computer 
Commodore 157} Disk Drive 
Commodore 1902 Color 
tfomtor 

«Commodore 80 Column 
Printer 


$759 


+Commedore 64 Computer 
*Commodore 1541 Disk Drive 
+ Commodore Color Printer 
+12" Monitor 


$379” 


COMMODORE 64—C 
PERSONAL COMPUTER 


COMMODORE 128 
PERSONAL COMPUTER 


COMMODORE MPS-—1200 
Computer Printer 


144° 
219" 
229° 
129° 
199° 
449° 


x COMPLETE 
CG 128= packace 
*Commodore 128 Computer 
*Commodore 1541 Disk Drive 
*12* Monitor 

Commodore Color Printer 


$479” 


To substitute 1571 


for 1541 add $65 


COMMODORE MPS-—803C 
Computer Printer 


COMMODORE MPS—1000 
Computer Printer 
COMMODORE 128 D 
w/Built—in Disk Drive 


Certified check, Bank check, Mastercard, Visa. Am-Ex, Dinet’s Club, Carte Blanch 
ja cai fs 


additional sur 
checks. NY ales ta 
le for typographic errors 

BA rc CIXT are reget 





"WE INVITE CORPORATE | 
& EDUCATIONAL CUSTOMERS 





1(800)345—7058 | NEW. v6 


$399.95 
$479.95 
STAR NB24—10 $419.95 
STAR NB24—15 $629.95 
$549.95 
$199.95 
$139.95 


NEW AMIGA 500 NOW IN STQCK 
ALL AMIGA PERIPHERALS 


MEMORY EXPANSION IN STOCK! 


Prices and availability subject to chinge without ni 
Return of defective merchandise mugt have prior 
4 trademarks of International Business Mach 


Penn. Station, Amtrack Level 
Beneath Madison Sq. 
Open Mon-Wed, 8:30— ae Fri,8:30—9/Sat & Sun, 10-7 


Garden,NY.,NY. (212)594—7140 


ORK STATE CALL 
132—4500 


ALL MERCHANDISE IS BR. IND NEW AND FACTORY FRESH. 
COMPLETE WITH MFR. U 


Shy WARRANTY. 


COMPUTER PACKAGES 
FOR Z 
APPLE IIC 
APPLE IIE 
APPLE MAC PLUS 
APPLE lIGS 


Apple IIC, IIE, IGS, or MAC+ Keybo: 
5.25" Disk Drive - 12"|Monitor « Package 
of 10 Diskettes - AC Adaptors - All 
Hook-up Cables 
APPLE JIC] APPLE IIE[APPLE liGS} MACPLUS 
PACKAGE | PACKAGE} PACKAGE | PACKAGE 


$699 | $899 |$1195|$1649 


IMAGEWRITER i |PRINTER.... $489 
NEC MULTISPEED $1325 
TOSHIBA 3100 Yet eS, (| 
ZENITH 181 $1639 
ZENITH 183 $2349 


AGATE: 329% 


30MB Ii ‘STOCK 


+ Keyboard + 640K 
RAM. + Turbospeed 
4.7/8 MHz. + Two 
360K Drives + MS 
DOS + Mono/Graphics 


IBM PC/XT 
COMPATIBLE 
PACKAGE 


$699" 


COMMODORE 1541C NEW 
Disk Drive 

COMMODORE 1571 
Computer Disk Drive 
COMMODORE 1902 80 
Column RGB Color Monitor 
COMMODORE 1802 Color 
Computer Monitor 
COMMODORE *MAGIC 
VOICE" Module 
COMMODORE 1700 — 128K 
Expansion Module 
COMMODORE 1750 — 512K 
Expansion Module 


COMMODORE 1670 
Automodem 


Card + High Resolution 
Mono Monitor 

Word = Proc 

Software 


169" 
119* 
Call 


Discover Card and COD s accepted * No 
non certified 

pling your 

yaton number, oF 

Corp AN o Gn be 


PWWWw.commodore.ca 


COMMODORE 1764 
Expansion Module 





_————_ 


1541/1571 Drive Allgnment THE AMAZING 


1541/1571 Drive Alignment reports the alignment condition of 
the disk drive as you perform adjustments. On screen help is 
available while the program is running. Includes features for speed ® 


adjustment and stop adjustment. Complete instruction manual on 
aligning both 1541 and 1571 drives. Even includes instructions on 








how to load alignment program when nothing else will load! Works 
on the C64, SX64, C128 in 64 or 128 mode, 1541, 1571 ineither 1541 SPEECH 
or 1571 mode! Autoboots to all modes. Second disk drive fully DIGITIZER, 
supported. Program disk, calibration disk and instruction manual 
only $34.95! VOICE 
Super Disk Uitilities REC NITION 
AND MORE... 
Super Disk Utilitles is the ultimate utilities disk for the 1571 disk 
drive and C128 computer. An 80 column monitor is required. SDU I 4 
will copy whole disks (with 1 or 2 drives), perform many CP/M and nee * Daeg else like 
MS-DOS utility functions, edit any track or sector, trace files, copy But aseeenioutect 
files, rename a disk, rename a file, change disk format (without and voice recognition with this single hardware product! Your voice. 
affecting data), scratch or unscratch files, lock or unlock files, controls programs, or home appliances, robots, and more with spoken 
erase a track or a whole disk, create auto-boot, commands. Verbal response back gives status, verifies, or requests your 
assemble/disassemble drive RAM or ROM, analyze disk format, reply! Speech output and recognition pattems are recorded into 
format in MFM, CPM+, 1541, or 1571 format, reads CPM+ memory with your voice. Programming Is simple with new commands 
directories, contains a 1571 drive monitor, fully supports a second etch Lett ll eee AS re Pa 
sth reriv performs direct DOS commands and much, much by humming a tune. Unlimited applications for fun, education, or 
nore! Options window displays all choices available at any given commercial use. Design your own programs for profit. Speech and 
time. Many utilities also work on the 1541 drive. No need for recognition quality the finest available. Only Covox provides this high- 
numerous utility disks! SDU does it all! Only $39.95! tech marvel for unlimited applications at a very affordable price. 
The Covox Voice Master comes complete with all hardware and software 
Free shipping & handling! No surcharge for credit card orders! be Et a se he try Sealine ed ST 
i ipping! Ill i a ia, $10 overseas.) Available for 
}mmediats shipping! Illinois residents add 8% sales tax. Order Coe 64/128, pk Ih llt lle, lle, Atari 00, BOOXL. 130 XE (IBM PC 
‘and compatibles version available soon). Specify when ordering. Visa, 
MasterCard phone orders accepted. 
Free Spirit Software, Inc. Call or write today for FREE 


538 S. Edgewood Covox product catalog and newsletter 


La Grange, IL 60525 . 

(312) 352-7323 COVOX INC. 
675-D Conger Street * Eugene, Oregon 97402 * USA 
Area Code (503) 342-1271 ® Telex 706017 (Av Alarm UD) 

















————— 


Re ‘OR MAIL ORDERS ONLY! CALL TOLL FREE 1-800-234-5888 ASTORIA 


COMPUTE! rao a a Ts] 4017 Brosdway-East Of GREAT NECK 
SITE OREO 


Steinway St. Corner 5820 Middle Neck Road 
PSON ium! |@BLUE CHIP 














FOR INFO: 718-726-8118 | FOR INFO: 516-829-2188 


MON.FRI. 10:30-7/CLOSED SATJSUN. 11-6 | MON-FRI, I1-7/CLOSED SAT./SUN. 11-5 












caer ace IBM PC/XT “aes PCIO (I PACKAGE) 
IBM PC/XT [ COMPATIBLE IBM PC/XT IBM PC/XT 
COMPATIBLE » PACKAGE COMPATIBLE COMPATIBLE 














S= $549\ce= 5535) °749 S565 <>" 


640K #2 Drive | 360K #8088 | 2 CPU | *PCI0 - 1 Computer 512K Expandable To 640K 
. ‘Blue Chip Keyboard 512K Expandable To 640K oe : *360K Disk Drive *Enhanced Keyboard #Serial & 
Equity 1 Computer *256K Ram Power |°5 cxsansion Slts-Optional 20MB Hard Drive Jot 2/ © MHZ 12” High Resolution | paral ports eA Hook Up Cables & Adaptors #10 


Dual 360K Disk Drives #12” High Resolu: Jai Hook-Up Cables & Adaptors #Package of |Monitor | __“d ishottes 
tion Monitor Serial and Parallel Ports 10 Diskettes #12" Monitor AUTHORIZED DEALER FOR | PCIO - 2 640K COMPUTER W/ env) 


} Most MAJOR BRANDS 360K FLOPPY DRIVES 
Il GS PACKAGE TZ ' 
Apple Il GS Computer ©5.25" Disk Drive ©12” Ke MODELS AVAILABLE! FULL LINE OF IBM 


Monitor *Package Of 10 Diskettes *AC Adaptors Call For Low Pricestt pale akb area 
All Hook-Up Cable = wr aif lfe 
ook Up Cables $ I QOAQ ELL rT t! “hE all For Lowest Prices!! 












} 
























































MODEMS IN STOCK! ZA 
*1BM < 
* COMMODORE A 


WAMIGA 



























eg | oF15 $12.95 
COMMODORE |News soo 2m=/-ris, = sta.ss | COMMODORE 
eyereia WE''n Pitfall .............. $8.95 | eCommodore 15410 New! 
BeRicell Championship ; Disk Drive........ $159 
‘Commodore GC Personal Computer. $135 ] *512K Computer WiBuiltin Disk Drive @} Baseball... ---.. 519-95 | ecommodore 1571 Computer 






sCommodore 128 Personal Computer. $218 | 1080 Color Monitor including Software | or COMMODORE SOFTWARE 












Commodore MPS:1200 Computer Disk Drive......... $205 

pa pais 30 0 3202) | ABNGA 2000: oie cate conncport — 128° eCommodore 1902 80 Column 
Commodore MPS-803C Computer 5 A 

fine $100 SE SSNSTSE PAERGGE TS ECO HERE ROB Cor Mont... $225 
Commodore MPS:1000 Comput 

; beri a poe $179 | “Commodore 64 Computer *Commodore 1541 Disk Drive |. *Commodore 128 Computer *Commodore 1541 Disc Ore Expansion Modules Availablee 





COMMODORE C-1802 
COLOR MONITOR $ 175 
ALL MERCHANDISE IS BRAND NEW 


AND FACTORY FRESH, COMPLETE 
WITH MFG. U.S.A. WARRANTY. 


“Commodore Color Printer 12” Monitor © on saqgl size Monitor eCommodore Color Printer 
$349.00 To SUB. 1571 FOR 1541 ADD $55. 499.00 
C 64C COLOR PACKAGE C 128 DELUXE PACKAGE 
‘Commodore 64C Computer *Commodore 1541 Disk | *Commodore 128 Computer *Commodore 1571 Disk Drive 
Drive *Commodore Color Printer *Color Monitor With | Commodore 1902 Color Monitor  eCommodore 
GEOS Program 80 Column Printer § a 
Mastercard, Visa, American Express, Diner's Club, Carte Blanche, Discover Card, Certified And Bank Checks Welcome. C.0.D.'s Accepted Upon Ap- 
p6 fet proval. No Additional Surcharge For Credit Card Orders. Non-Certified Checks & Money Orders Must Wait For Clearance. N.Y. Residents Add Applicable 
FOR COMMODORE* —_—Sales Tax. We Are Not Responsible For Typographical Errors. Prices And Availability Are Subject To Change Without Notice. To Return Defective Mer- J 

chandise Cali For Authorization Number. IBM PC/XT Are Registered Trademarks Of International Business Machine Corp. All Orders Can Be Shipped [) 

ir Expre: 


eS —s 
SPST T SST S TTS STS SS TS TTT SSS T STOTT VOUS TTS S TS SSSSTS TTT TTT T VOSS’ 





Panasonic 1080i $165 


ALL COMPUTERS & PERIPHERALS 
COME COMPLETE W/AC ADAPTOR, 
OWNER'S MANUAL AND ALL 
CONNECTING CABLES. 


























SSS SST TTS SST SSSSSSVVSSVTVSTVVTTS 









ERVICE CENTER 
ATARI COMPUTERS AT LOW PRIC 
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COMPUTE!’s Guide 
To Typing In Programs 


Computers are precise—type the pro- 

am exactly as listed, including neces- 
a panctiation and auntie except Atari 400/800/XL/XE 
for special characters noted below, We | When you see Type 
have provided a special listing conven- 
tion as well as a program to check your {CLEARY ESC SHIFT < 
typing—“The Automatic Proofreader.” «UP 

Programs for the IBM, TI-99/4A, < DOWNS: 

and Atari ST models should be typed oe 


oe ; {RIGHT} 
exactly as listed; no special characters {BACK $3 


are used. Programs for Commodore, 

Apple, and Atari 400/800/XL/XE one ae es 
computers may contain some hard-to- {DEL LINE} SHIFT DELETE 
read special characters, so we have a {INS LINE} SHIFT INSERT 
listing system that indicates these con- {TAB} TAB 

trol characters. You will find these «CLR TAB} CTRL TAB 
Commodore and Atari characters in {SET TAB} SHIFT TAB 
curly braces; do not type the braces. For {BELL} ETRE 2 
example, {CLEAR} or {CLR} instructs a EEE 

you to insert the symbol which clears 

the screen on the Atari or Commodore 

acting A conplete list of these spa: Commodore PET/CBM/VIC/64/128/16/+4 

bols is shown in the tables below. For When You When You 
Commodore, Apple, and Atari, a single Read: Press: See: Read: Press: 
symbol by itself within curly braces is {CLR} SHIFT || CLR/HOME | ™ 1g COMMODORE} 
usually a control key or graphics key. If Feminome E 

you see {A}, hold down the CONTROL {HOME} eee 
key and press A. This will produce a {UP} f crsr | 
reverse video character on the Commo- Ff case | | 
dore (in quote mode), a graphics char- {DOWN} = 

acter on the Atari, and an invisible {LEET} — CRSR— 
control character on the Apple. 

Graphics characters entered with | {RIGHT} 
the Commodore logo key are enclosed {RVS} 
in a special bracket: kA>}. In this case, 
you would hold down the Commodore | {OFF} 
logo key as you type A. Our Commo- {BLK} 
dore listings are in uppercase, so shifted 
symbols are underlined. A graphics {WHT 
heart symbol (SHIFT-S) would be listed {RED} 
as S. One exception is {SHIFT- 

SPACE}. When you see this, hold down iGENS 
SHIFT and press the space bar. If a {PUR} 
number precedes a symbol, such as {5 

RIGHT}, {6 S}, or 8 Q>}, you would} {GRN} 
enter five cursor rights, six shifted S’s, {BLU} {7} 
or eight Commodore-Q‘s. On the Atari, 

inverse characters (white on black) EES) {er 
should be entered with the inverse video « 
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wn 
0 
0 


Clear Screen 
Cursor Up 

Cursor Down 
Cursor Left 
Cursor Right 
Backspace 
Delete character 
Insert character 
Delete line 
Insert line 

TAB key 

Clear tab 

Set tab stop 
Ring buzzer 
ESCape key 
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{Fi} 
{2} 
{53} 
{  } 
{ FS } 
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* BEBE: 








key (Atari logo key on 400/800 models). 

Whenever more than two spaces 
appear in a row, they are listed in a 
special format. For example, {6 
SPACES} means press the space bar six 
times. Our Commodore listings never 
leave a single space at the end of a line, 
instead moving it to the next printed 
line as {SPACE}. 

Amiga program listings contain 
only one special character, the left ar- 
row (+) symbol, This character marks 
the end of each program line, Wherever 
you see a left arrow, press RETURN or 
move the cursor off the line to enter 
that line into memory. Don't try to type 
in the left arrow symbol; it’s there only 
as a marker to indicate where each pro- 
gram line ends. 


























The Automatic Proofreader 
Type in the appropriate program listed 
below, then save it for future use, The 
Commodore Proofreader works on the 
Commodore 128, 64, Plus/4, 16, and 
VIC-20. Don’t omit any lines, even if 
they contain unfamiliar commands or 
you think they don’t apply to your com- 
puter. When you run the program, it 
installs a machine language program in 
memory and erases its BASIC portion 
automatically (so be sure to save sever- 
al copies before running the program 
for the first time). If you're using a 
Commodore 128, Plus/4 or 16, do not 
use any GRAPHIC commands while 
the Proofreader is active. You should 
disable the Commodore Proofreader 
before running any other program. To 
do this, either turn the computer off and 
on or enter SYS 64738 (for the 64), SYS 
65341 (128), SYS 64802 (VIC-20), or 
SYS 65526 (Plus/4 or 16). To reenable 
the Proofreader, reload the program 
and run it as usual, Unlike the original 
VIC/64 Proofreader, this version works 
the same with disk or tape. 

On the Atari, run the Proofreader 
to activate it (the Proofreader remains 
active in memory as a machine lan- 
guage program); you must then enter 
NEW to erase the BASIC loader. Press- 
ing SYSTEM RESET deactivates the 
Atari Proofreader; enter PRINT 
USR(1536) to reenable it. 

The Apple Proofreader erases the 
BASIC portion of itself after you run it, 
leaving only the machine language por- 
tion in memory. It works with either 
DOS 3.3 or ProDOS. Disable the Apple 
Proofreader by pressing CTRL-RESET 
before running another BASIC program. 

The IBM Proofreader is a BASIC 
program that simulates the IBM BASIC 
line editor, letting you enter, edit, list, 
save, and load programs that you type. 
Type RUN to activate. Be sure to leave 
Caps Lock on, except when typing low- 
ercase characters. 
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Once the Proofreader is active, try 
typing in a line. As soon as you press 
RETURN, either a hexadecimal number 
(on the Apple) or a pair of letters (on the 
Commodore, Atari, or IBM) appears. 
The number or pair of letters is called a 
checksum. 


Compare the value displayed on 
the screen by the Proofreader with the 
checksum printed in the program list- 
ing in the magazine. The checksum is 
given to the left of each line number. 
Just type in the program a line at a time 
(without the printed checksum), press 
RETURN or Enter, and compare the 
checksums. If they match, go on to the 
next line. If not, check your typing; 
you've made a mistake. Because of the 
checksum method used, do not type 
abbreviations, such as ? for PRINT. On 
the Atari and Apple Proofreaders, 
spaces are not counted as part of the 
checksum, so be sure you type the right 
number of spaces between quote 
marks. The Atari Proofreader does not 
check to see that you've typed the char- 
acters in the right order, so if characters 
are transposed, the checksum still 
matches the listing. The Commodore 
Proofreader catches transposition er- 
rors and ignores spaces unless they‘re 
enclosed in quotation marks. The IBM 
Proofreader detects errors in spacing 
and transposition. 


IBM Proofreader Commands 
Since the IBM Proofreader replaces the 
computer's normal BASIC line editor, it 
has to include many of the direct-mode 
IBM BASIC commands, The syntax is 
identical to IBM BASIC. Commands 
simulated are LIST, LLIST, NEW, 
FILES, SAVE, and LOAD. When listing 
your program, press any key (except 
Ctrl-Break) to stop the listing. If you 
enter NEW, the Proofreader prompts 
you to press Y to be especially sure you 
mean yes. 

Two new commands are BASIC 
and CHECK. BASIC exits the Proof- 
reader back to IBM BASIC, leaving the 
Proofreader in memory. CHECK works 
just like LIST, but shows the checksums 
along with the listing. After you have 
typed in a program, save it to disk. 
Then exit the Proofreader with the 
BASIC command, and load the pro- 
gram as usual (this replaces the Proof- 
reader in memory). You can now run 
the program, but you may want to re- 
save it to disk. This will shorten it on 
disk and make it load faster, but it can 
no longer be edited with the Proofread- 
er. If you want to convert an existing 
BASIC program to Proofreader format, 
save it to disk with SAVE “filename’’,A. 


Program 1: Atari 
Proofreader 
By Charles Brannon 


198 
119 


GRAPHICS @ 

FOR I=1536 TO 1766:REA 
D A:POKE I,A:CK=CK+A:N 
ExT I 

IF CK<>19672 THEN ? "E 
rror in DATA Statement 
s. Check Typing.":END 


129 


139 
149 


A=USR (1536) 

2? :? "Automatic Proofr 
eader Now Activated.” 
END 

DATA 164,1696,6,185,26, 
3,201,67,240,7 

DATA 200,206,192,34, 20 
B, 243,96, 200,169, 74 
DATA 153,26,3,209,1469, 
6,153,26,3,162 

DATA @,189,0,228,157,7 
4,6,232,224,16 

DATA 268,245,169,93,14 
1,78,6,169,6,141 

DATA 79,6,24,173,4,228 
7105,1,141,95 

DATA 6,173,5,228,195,o8 
+141,96,6,169 

DATA @,133,203,96,247, 
238,125,241,93,6 

DATA 244,241,115,241,1 
24,241,746, 205,238 

DATA @,0,8,0,9,32,62,2 
46,8,261 

DATA 155,249,13,201,32 
»24G,7,72,24,1G1 

DATA 263,133,263,164,4 
@,96,72,152,72,138 
DATA 72,169,6,169,128, 
145,88, 200,192,409 

DATA 268,249,165, 203,7 
4,74,74,74,24,195 

DATA 161,166,3,145,88, 
165,293,41,15,24 

DATA 1@5,161,299,145,98 
8,169,9,133,203,104 
DATA 178,194,148,194,4 
9,96 


159 
169 


176 
188 
199 
299 
218 
229 
239 
248 
256 
266 
278 
289 
296 
390 
3168 
329 


Program 2: IBM Proofreader 
By Charles Brannon 


19 "Automatic Proofreader Vers 
ion 3.9 (Lines 205,206 adde 
d/196 deleted/479,499 chang 
ed from V2.9) 

199 DIM L$(506) ,LNUM(59@) : COLO 
R @,7,7:KEY OFF:CLS:MAX=6: 
LNUM (8) =465536! 

11@ ON ERROR GOTO 129:KEY 15,C 
HR$ (4) +CHR$(79)=ON KEY (15) 

GOSUB 649:KEY (15) ON:GOT 
O 139 

120 RESUME 139 

139 DEF SEG=&H49:W=PEEK (&H4A) 

149 ON ERROR GOTO 659:PRINT:PR 

INT"Proofreader Ready." 

LINE INPUT L$: Y=CSRLIN-INT 

(LEN(L$) /W)-1:LOCATE Y,1 

DEF SEG=9:POKE 1950,30:POK 

E 1952,34:POKE 1954,9:POKE 

1955,79:POKE 1956, 13:POKE 
1957,28:LINE INPUT L$:DEF 
SEG: IF L$="" THEN 159 
IF LEFTS(L$,1)=" “ THEN LS 
=MID$(L$,2):GOTO 179 


158 


169 


179 
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189 


259 


295 


206 
219 


226 


238 


249 


269 


279 


289 
298 
30D 


319 


326 


338 


349 
359 


36d 


378 
38D 
39 
490 
419 
426 


436 


449 


45o 


IF VAL(LEFTS(L$,2))=@ AND 
MIDS(L$,3,1)=" " THEN L$=M 
ID$(L$,4) 
IF ASC(L$)>57 THEN 269 *no 
line number, therefore co 
mmand 
BL=INSTR(L$," "):IF BL=9 T 
HEN BL$=L$:GOTO 206 ELSE B 
L$=LEFT$(L$, BL-1) 
LNUM=VAL (BLS) = TEXT$=MID$ (L 
$, LEN(STRS(LNUM) )+1) 
IF TEXT$="" THEN GOSUB 549 
:IF LNUM=LNUM(P) THEN GOSU 
B 549:GOTO 159 ELSE 159 
:FOR I=1 TO LEN(L$) 
= CKSUM=(CKSUM+ASC (MIDS (LS, 
1))%1I) AND 255:NEXT: LOCATE 
Y,1:PRINT CHRS(465+CKSUM/1 
6) +CHRS (65+ (CKSUM AND 15)) 
+" "4L$ 
GOSUB 546:IF LNUM(P)=LNUM 
THEN L$(P)=TEXT$:GOTO 159 
*replace line 
GOSUB 589:GOTO 159 “insert 
the line 
TEXTS :FOR I=1 TO LEN(LS 
) SA=ASC (MIDS (L$, 1) ): TEXTS= 
TEXTS+CHR$(A+32%(A>96 AND 
A<123)) =NEXT 
DELIMITER=INSTR(TEXTS," ") 
: COMMANDS=TEXT$: ARG$S="": IF 
DELIMITER THEN COMMAND$S=L 
EFTS (TEXTS, DELIMITER-1):AR 
G$=MID$ (TEXTS, DELIMITER+1) 
ELSE DELIMITER=INSTR (TEXT 
$,CHR$(34))2IF DELIMITER T 
HEN COMMAND$=LEFTS (TEXTS, D 
ELIMITER-1) =: ARGS=MID$ (TEXT 
$, DELIMITER) 
IF COMMANDS<>"LIST" THEN 4 
19 
OPEN “scrn:" FOR OUTPUT AS 
#1 
IF ARG$="" THEN FIRST=9:P= 
MAX-1:GOTO 343 
DELIMITER=INSTR (ARGS, "— 
IF DELIMITER=6 THEN LNU! 
AL(ARG$):GOSUB 549:FIRST=P 
:GOTO 349 
FIRST=VAL (LEFTS (ARGS, DELIM 
ITER) ) :LAST=VAL (MIDS (ARGS, 
DELIMITER+1) ) 
LNUM=FIRST:GOSUB 549:FIRST 
=P:LNUM=LAST:GOSUB 549: IF 
P= THEN P=MAX-1 
FOR X=FIRST TO P:NS=MID$(S 
TRS(LNUM(X)),2)+" ™ 
IF CKFLAG=9 THEN AS="":GOT 
0 379 
CKSUM=9: AS=N$+L$(X):FOR I= 
1 TO LEN(AS$) :CKSUM=(CKSUM+ 
ASC(MID$(A$,I))%*I) AND 255 
? NEXT: AS=CHR$ (465+CKSUM/14) 
+CHRS (65+ (CKSUM AND 15))+" 
” 














PRINT #1, AS+NS+L$(X) 

IF INKEY$<>"" THEN X=P. 
NEXT :CLOSE #1:CKFLAG=9 
GOTO 139 

IF COMMAND$="LLIST" THEN O 
PEN "Ipti:" FOR QUTPUT AS 
#1:GOTO 399 

IF COMMANDS="CHECK" THEN C 
KFLAG=1:GOTO 299 

IF COMMANDS<>"SAVE" THEN 4 
So 


GOSUB 696:0PEN ARGS FOR OU 
TPUT AS #1:ARG$="":GOTO 39 
i) 


IF COMMANDS< >"LOAD" 
90 





THEN 4 


469 


479 


489 
495 


Soo 


519d 
Sis 


517 
529 


S49 


S56 


589 


659 


619 


629 


630 
645 


653 


GOSUB 499:O0PEN ARGS FOR IN 
PUT AS #1:MAX=9: P= 

WHILE NOT EOF(1)=LINE INPU 
T #1,L$:BL=INSTR(L$," "):B 
L$=LEFTS(L$,BL—1) :LNUM(P)= 
VAL (BLS) :L$(P)=MID$(L$,LEN 
(STRS(VAL (BLS) ))+1):P=P+i: 
WEND 

MAX=P:CLOSE #1:GOTO 139 

IF COMMANDS="NEW" THEN INP 
UT “Erase program —- Are yo 
u sure";L$:IF LEFTS(L$,1)= 
“y" OR LEFT$(L$,1)="Y" THE 
N MAX=@:LNUM (9) =65536! : GOT 
O 139:ELSE 139 

IF COMMAND$S="BASIC“ THEN C 
OLOR 7,9,9:0N ERROR GOTO @ 
:CLS:END 

IF COMMANDS<>"FILES" THEN 
525 

IF ARGS="" THEN ARGS="A:" 
ELSE SEL=1:GOSUB 699 

FILES ARG$:GOTO 139 
PRINT"Syntax error":GOTO 1 
38 


P=9:WHILE LNUM>LNUM(P) AND 
P<MAX: P=P+1:WEND: RETURN 
MAX=MAX-1:FOR X=P TO MAX=:L 
NUM (X) =LNUM(X+1) :L$(X)=L$( 

X+1) NEXT: RETURN 

MAX=MAX+1:FOR X=MAX TO P+1i 
STEP —1:LNUM(X)=LNUM(X-1) 
L$ (X)=L$(X-1) :NEXT:L$(P)= 

TEXT$:LNUM(P) =LNUM: RETURN 
IF LEFT$(ARGS, 1) <>CHRS(34) 
THEN 529 ELSE ARGS=MIDS(A 

RGS, 2) 

IF RIGHTS (ARGS, 1)=CHRS(34) 
THEN ARGS=LEFTS (ARGS, LEN ( 

ARG$)-1) 

IF SEL=@ AND INSTR(ARGS, ". 
“)=@ THEN ARG$=ARGS+". BAS" 
SEL=0: RETURN 

CLOSE #1:CKFLAG=9:PRINT"St 
opped.":RETURN 159 

PRINT “Error #";ERR:RESUME 
159 








Program 3: Commodore 
Proofreader 


By Philip Nelson, Assistant Editor 


16 


26 


38 


4 


58 


66 


76 


86 


98 


VEC=PEEK(772)+256*PEEK(773) 
+LO=43 :HI=44 

PRINT “AUTOMATIC PROOFREADE 
R FOR “;:IF VEC=42364 THEN 
{SPACE}PRINT "C-64" 

IF VEC=58556 THEN PRINT 
c-28" 

IF VEC=35158 THEN GRAPHIC C 
LR:PRINT "PLUS/4 & 16" 

IF VEC=17165 THEN LO=45:HI= 
46:GRAPHIC CLR:PRINT"128" 
SA=(PEEK(LO)+256*PEEK(HI))+ 

6:ADR=SA 

FOR J=@ TO 166:READ BYT:POK 
E ADR, BYT:ADR=ADR+1 : CHK=CHK 

+BYT:NEXT 

IF CHK<>26576 THEN PRINT "* 
ERROR* CHECK TYPING IN DATA 
STATEMENTS ":END 

FOR J=1 TO 5:READ RF,LF,HF: 
RS=SA+RF :HB=INT(RS/256) :LB= 
RS- (256*HB) 





“VT 


199 CHK=CHK+RF+LF+HF:POKE SA+L 


F,LB:POKE SA+tHF,HB:NEXT 


119 IF CHK<>22954 THEN PRINT “ 


*ERROR* RELOAD PROGRAM AND 





{SPACE}CHECK FINAL LINE":EN 
D 


126 POKE SA+149,PEEK(772) :POKE 
SA+15, PEEK( 773) 

130 IF VEC=17165 THEN POKE SA+ 
14,22:POKE SA+18,23:POKESA+ 
29, 224:POKESA+139 , 224 

148 PRINT CHR$(147);CHRS$(17);" 
PROOFREADER ACTIVE":SYS SA 

158 POKE HI,PEEK(HI)+1:POKE (P 
EEK(LC)+256*PEEK(HI))-1,@:N 
EW 

16G DATA 120,169,73,141,4,3,16 
9,3,141,5,3 

176 DATA 88,96,165,20,133,167, 
165,21,133,168,169 

188 DATA 9,141,6,255,162,31,18 
1,199,157,227,3 

198 DATA 262,16,248,169,19,32, 
216,255,169,18,32 

260 DATA 210,255,160,0,132,180 
132,176,136, 230,180 

219 DATA 200,185,0,2,240,46,20 
1,34,208,8,72 

226 DATA 165,176,73,255,133,17 
6,104,72,261,32, 208 

230 DATA 7,165,176,208,3,104,2 
68,226,104,166,188 

240 DATA 24,165,167,121,0,2,13 
3,167,165,168,105 

258 DATA 6,133,168, 262,208,239 
1248 ,262,165,167,69 

26@ DATA 168,72,41,15,168,185, 
211,3,32,210,255 

276 DATA 104,74,74,74,74,168,1 
85,211,3,32,216 

280 DATA 255,162,31,189,227,3, 
149,199, 262,16,248 

296 DATA 169,146,32,210,255,76 
,86,137,65,66,67 

300 DATA 68,69,70,71,72,74,75, 
77,88,81,82,83,88 

319 DATA 13,2,7,167,31,32,151, 
116,117,151,128,129,167,136 
137 





Program 4: Apple 
Proofreader 


By Tim Victor, Editorial Programmer 


19 C = 9: FOR I = 768 TO 768 + 
68: READ A:C = C + A: POKE I 
A> NEXT 

26 IF € < > 7258 THEN PRINT "ER 


ROR IN PROOFREADER DATA STAT 
EMENTS": END 





3@ IF PEEK (199 * 256) < > 76 T 
HEN POKE 56,9: POKE 57,3: CA 
LL 1992: GOTO 5d 

49 PRINT (CHR® (4); "IN#HAS390" 


POKE 34,4: HOME =: 
VTAB 2s PRINT 
INSTALLED” 

69 NEW 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


POKE 34,1: 
"“PROOFREADER 


216,32,27, 253,201,141 
208, 68, 138,72, 169,90 
72,189,255, 1,201, 169 
249,8, 104, 10,125,255 
1,195, 9,72, 202,208 
238, 194,170,41,15,9 
48, 201,58, 144, 2,233 
57,141,1,4, 138,74 
74,74,74,41,15,9 

48, 201,58, 144, 2,233 
57,141,9, 4,194,170 
169, 141,96 c 


SAUNA 


Cwwa.compedore.ca 









MLX 


Ottis Cowper, Technical Editor 


“MLX" is a labor-saving utility that allows 
almost fail-safe entry of Commodore 64 
machine language programs. 





Type in and save some copies of MLX— 
you'll want to use it to enter future ma- 
chine langauge (ML) programs from 
COMPUTE!. When you're ready to enter 
an ML program, load and run MLX. It 
asks you for a starting address and an 
ending address. These addresses appear 
in the article accompanying the MLX- 
format program listing you're typing. 

If you're unfamiliar with machine 
language, the addresses (and all other 
values you enter in MLX) may appear 
strange. Instead of the usual decimal 
numbers you're accustomed to, these 
numbers are in hexadecimal—a base 16 
numbering system commonly used by 
ML programmers. Hexadecimal—hex 
for short—includes the numerals 0-9 
and the letters A-F. But don’t worry— 
even if you know nothing about ML or 
hex, you should have no trouble using 
MLX. 

After you enter the starting and end- 
ing addresses, you'll be offered the op- 
tion of clearing the workspace. Choose 
this option if you're starting to enter a 
new listing. If you're continuing a listing 
that’s partially typed from a previous 
session, don’t choose this option. 

A functions menu will appear. The 
first option in the menu is ENTER 
DATA. If you're just starting to type in a 
program, pick this. Press the E key, and 
type the first number in the first line of 
the program listing. If you've already 
typed in part of a program, type the line 
number where you left off typing at the 
end of the previous session (be sure to 
load the partially completed program 
before you resume entry). In any case, 
make sure the address you enter corre- 
sponds to the address of a line in the 
listing you are entering. Otherwise, you'll 
be unable to enter the data correctly. If 
you pressed E by mistake, you can return 
to the command menu by pressing RE- 
TURN alone when asked for the address. 
(You can get back to the menu from most 
options by pressing RETURN with no 
other input.) 


Entering A Listing 

Once you're in Enter mode, MLX prints 
the address for each program line for 
you. You then type in all nine numbers 
on that line, beginning with the first two- 
digit number after the colon (:). Each line 
represents eight data bytes and a check- 




















Machine Language Eniry Program 
For Commodore 64 


sum. Although an MLX-format listing 
appears similar to the “hex dump” list- 
ings from a machine language monitor 
program, the extra checksum number on 
the end allows MLX to check your 
typing. 

When you enter a line, MLX recalcu- 
lates the checksum from the eight bytes 
and the address and compares this value 
to the number from the ninth column. If 
the values match, you'll hear a bell tone, 
the data will be added to the workspace 
area, and the prompt for the next line of 
data will appear. But if MLX detects a 
typing error, you'll hear a low buzz and 
see an error message. The line will then 
be redisplayed for editing. 


Invalid Characters Banned 
Only a few keys are active while you're 
entering data, so you may have to un- 
learn some habits, You do not type spaces 
between the columns; MLX automatical- 
ly inserts these for you. You do not press 
RETURN after typing the last number in 
a line; MLX automatically enters and 
checks the line after you type the last 
digit. 

Only the numerals 0-9 and the let- 
ters A-F can be typed in. If you press any 
other key (with some exceptions noted 
below), you'll hear a warning buzz. To 
simplify typing, a numeric keypad is now 
incorporated in the listing. The keypad is 
active only while entering data. Address- 
es must be entered with the normal letter 
and number keys. The figure below 
shows the keypad configuration: 





MLX checks for transposed charac 
ters. If you're supposed to type in AO and 
instead enter 0A, MLX will catch your 
mistake. There is one error that can slip 
past MLX; Because of the checksum for- 
mula used, MLX won't notice if you acci- 
dentally type FF in place of 00, and vice 
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versa. And there's a very slim chance that 
you could garble a line and still end up 
with a combination of characters that 
adds up to the proper checksum, How- 
ever, these mistakes should not occur if 
you take reasonable care while entering 
data. 


Editing Features 

To correct typing mistakes before finish- 
ing a line, use the INST/DEL key to 
delete the character to the left of the 
cursor, (The cursor-left key also deletes.) 
If you mess up a line really badly, press 
CLR/HOME to start the line over. The 
RETURN key is also active, but only 
before any data is typed on a line. Press- 
ing RETURN at this point returns you to 
the command menu, After you type a 
character of data, MLX disables RETURN 
until the cursor returns to the start of a 
line. Remember, you can press CLR/ 
HOME to quickly get to a line number 
prompt. 

More editing features are available 
when correcting lines in which MLX has 
detected an error. To make corrections in 
a line that MLX has redisplayed for edit- 
ing, compare the line on the screen with 
the one printed in the listing, then move 
the cursor to the mistake and type the 
correct key. The cursor left and right keys 
provide the normal cursor controls. (The 
INST/DEL key now works as an alterna- 
tive cursor-left .) You cannot move 
left beyond the first character in the line, 
If you try to move beyond the rightmost 
character, you'll reenter the line. During 
editing, RETURN is active; pressing it 
tells MLX to recheck the line. You can 
press the CLR/HOME key to clear the 
entire line if you want to start from 
scratch, or if you want to get to a line 
number prompt to use RETURN to get 
back to the menu. 


Display Data 

The second menu choice, DISPLAY 
DATA, examines memory and shows the 
contents in the same format as the pro- 
gram listing (including the checksum). 
When you press D, MLX asks you for a 
starting address, Be sure that the starting 
address you give corresponds to a line 
number in the listing. Otherwise, the 
checksum display will be meaningless. 
MLX displays program lines until it 
reaches the end of the program, at which 
point the menu is redisplayed. You can 
pause the display by pressing the space 
bar. (MLX finishes printing the current 
line before halting.) Press space again to 
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restart the display. To break out of the 
display and get back to the menu before 
the ending address is reached, press 
RETURN. 


Other Menu Options 

Two more menu selections let you save 
programs and load them back into the 
computer. These are SAVE FILE and 
LOAD FILE; their operation is quite 
straightforward. When you press S or L, 
MLX asks you for the filename. You'll 
then be asked to press either D or T to 
select disk or tape. 

You'll notice the disk drive starting 
and stopping several times during a load 
or save. Don’t panic; this is normal be- 
havior. MLX opens and reads from or 
writes to the file instead of using the 
usual LOAD and SAVE commands. Disk 
users should also note that the drive 
prefix 0: is automatically added to the 
filename (line 750), so this should not be 
included when entering the name. This 
also precludes the use of @ for Save- 
with-Replace, so remember to give each 
version you save a different name. 

Remember that MLX saves the en- 
tire workspace area from the starting ad- 
dress to the ending address, so the save 
or load may take longer than you might 
expect if you've entered only a small 
amount of data from a long listing. When 
saving a partially completed listing, make 
sure to note the address where you 
stopped typing so you'll know where to 
resume entry when you reload. 

MLX reports the standard disk or 
tape error messages if any problems are 
detected during the save or load. (Tape 
users should bear in mind that Commo- 
dore computers are never able to detect 
errors during a save to tape.) MLX also 
has three special load error messages: 
INCORRECT STARTING ADDRESS, 
which means the file you’re trying to 
load does not have the starting address 
you specified when you ran MLX; LOAD 
ENDED AT address, which means the file 
you're trying to load ends before the 
ending address you specified when you 
started MLX; and TRUNCATED AT 
ENDING ADDRESS, which means the 
file you're trying to load extends beyond 
the ending address you specified when 
you started MLX. If you see one of these 
messages and feel certain that you've 
loaded the right file, exit and rerun MLX, 
being careful to enter the correct starting 
and ending addresses. 

The QUIT menu option has the ob- 
vious effect—it stops MLX and enters 
BASIC. The RUN/STOP key is disabled, 
so the Q option lets you exit the program 
without turning off the computer. (Of 
course, RUN/STOP-RESTORE also gets 
you out.) You'll be asked for verification; 
press Y to exit to BASIC, or any other key 











can type RUN again and reenter MLX 
without losing your data, as long as you 
don’t use the clear workspace option. 


The Finished Product 

When you've finished typing all the data 
for an ML program and saved your work, 
you're ready to see the results. The in- 
structions for loading and using the fin- 
ished product vary from program to 
program. Some ML programs are de- 
signed to be loaded and mun like BASIC 
programs, so all you need to type is 
LOAD “filename’,8 for disk or LOAD 
“filename” for tape, and then RUN. Such 
programs will usually have a starting 
address of 0801 for the 64. Other pro- 
grams must be reloaded to specific ad- 
dresses with a command such as LOAD 
“filename’,8,1 for disk or LOAD “file- 
name’’,1,1 for tape, then started with a 
SYS to a particular memory address. On 
the Commodore 64, the most common 
starting address for such programs is 
49152, which corresponds to MLX ad- 
dress C000. In either case, you should 
always refer to the article which accom- 
panies the ML listing for information on 
loading and running the program. 


An Ounce Of Prevention 

By the time you finish typing in the data 
for a long ML program, you may have 
several hours invested in the project. 
Don’t take chances—use our “Automatic 
Proofreader” to type the new MLX, and 
then test your copy thoroughly before first 
using it to enter any significant amount of 
data. Make sure all the menu options 
work as they should, Enter fragments of 
the program starting at several different 
addresses, then use the Display option to 
verify that the data has been entered 
correctly. And be sure to test the Save 
and Load options several times to ensure 
that you can recall your work from disk 
or tape. Don’t let a simple typing error in 
the new MLX cost you several nights of 
hard work. 


MLX For Commodore 64 


SS 10 REM VERSION 1.1: 
36,950 MODIFIED, 
85-487 ADDED 
POKE 56,50:CLR:DIM INS, 
I,3,A,B,A$,B$,A(7),NS 
C4=48 :C6=16 :C7=7 :Z2=2:Z 
4=254 :25=255 :Z6=256:27= 
127 
FA=PEEK (45) +Z6*PEEK (46) 
?BS=PEEK(55)+Z6*PEEK(56 
) H$="9123456789ABCDEF" 
RS=CHRS (13) :L$="{LEFT}" 
:S$="_ “:DS=CHRS$(20):ZS= 
CHRS(@):TS="{13 RIGHT}" 
SD=54272:FOR I=SD TO SD 
+23:POKE 1,0:NEXT:POKE 
{SPACE }SD+24,15:POKE 78 
8,52 
PRINT" {CLR} "CHRS$ (142) CH 


LINES 8 
LINES 4 


EK 168 


DM 116 


CI 126 


SB 138 


cQ 146 


Fe 159 


E 53281,15 
EJ 169 PRINT TS" {RED} {RVS} 
{2 SPACES}£8 @} 
{2 SPACES }"SPc(28)" 
{2 SPACES}{OFF}{BLU} ML 
X II {RED} {Rvs} 
{2 SPACES}"sPc(28)" 
{12 SPACES} {BLU} " 
PRINT"{3 DOWN} 
{3 SPACES }COMPUTE!'S MA 
CHINE LANGUAGE EDITOR 
{3 DowNn}" 
PRINT" {BLK}STARTING ADD 
RESSE49"; :GOSUB309:SA=A 
D:GOSUB1946:IF F THEN18 
g 
PRINT"{BLK}{2 SPACESJEN 
DING ADDRESSK43"; :GOSUB 
390 :EA=AD:GOSUB1039:IF 
{SPACE]F THEN199 
INPUT"(3 DOWN} {BLK}CLEA 
R WORKSPACE [Y¥/N]E43";A 
$:IF LEPTS(AS,1)<>"Y"TH 
EN228 
PRINT"[2 DOWN] {BLU}WORK 
ING...";:FORI=BS TO BS+ 
EA-SA+7:POKE I,9:NEXT:P 
RINT "DONE" 
PRINTTAB(19)"{2 DOWN} 
{BLK} {RVS} MLX COMMAND 
{SPACE}MENU {DOWN}E43": 
PRINT T$"{RVS}E(OFF}NTE 
R DATA" 
PRINT TS"{RVS}D{OFF}ISP 
LAY DATA":PRINT TS" 
{RVS}L{OFFJOAD FILE" 
PRINT TS"{RVS}]S{OFF}AVE 
FILE":PRINT T$"{RVS}Q 
{OFF}UIT{2 DOWN} {BLK}" 
JH 250 GET A$:IF AS=N$ THEN259 
HK 268 A=0:FOR I=] TO 5:IF AS$= 
MIDS$("EDLSQ",I,1)THEN A 
=I:I=5 
NEXT:ON A GOTO429,619,6 
98 , 780 , 280 :GOSUB1960:GO 
T0259 
PRINT"{RVS} QUIT “:INPU 
T" (DOWN}E43ARE YOU SURE 
CY/N]";AS:IF LEFTS(AS, 
1)<>"Y"THEN226 
POKE SD+24,0:END 
INS=N$ :AD=9 : INPUTINS : IF 
LEN ( INS) <> 4THENRETURN 
BS=IN$ :GOSUB326 :AD=A: BS 
=MIDS(IN$,3) :GOSUB329:A 
D=AD* 256+A: RETURN 
A=0:FOR J=1 TO 2:AS=MID 
$(BS,J,1):B=ASC(A$)-C4+ 
(AS>"@") *C7 :A=A*CO+B 
IF B<@ OR B>15 THEN AD= 
@:A=-1:J=2 
NEXT: RETURN 
B=INT(A/C6):PRINT MIDS( 
HS$,B+1,1);:B=A-B*C6:PRI 
NT MIDS$(H$,B+1,1);:RETU 
RN 
A=INT(AD/Z6) :GOSUB359:A 
=AD-A*Z6 :GOSUB350:PRINT 


nea, 


FR 179 
cB 189 
GF 199 
KR 266 
PG 219 


DR 226 


BD 230 


JS 248 


FD 276 


EJ 289 


EM 296 
IX 388 


KF 319 
PP 329 


JA 338 


GX 346 
CH 356 


RR 368 


CK=INT(AD/Z6) :CK=AD-24* 
CK+Z5* (CK>Z7) :GOTO399 
CK=CK*2Z2+Z5* (CK>27)+A 
CK=CK+Z5* (CK>Z5) :RETURN 
PRINT“ {DOWN}STARTING AT 
£43"; :GOSUB300:IF INS<> 
N$ THEN GOSUB1@30:IF F 
{SPACE }THEN490 

RETURN 

PRINT" {RVS} ENTER DATA 
{SPACE}":GOSUB4@@:IF IN 
S=N$ THEN220 
OPEN3,3:PRINT 


BE 378 
PX 389 


JC 399 
Qs 499 


EX 419 
HD 426 


JK 439 


to return to the menu. After quitting, you R$(8):POKE 53289,15:POK SK 449 POKE198,9:GOSUB360:IF F 
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FX 


CM 


MP 


ac 


PK 


HI 


GQ 
QA 


KS 





Pc 


112 COMPUTE! 


456 
466 
478 
489 
485 


486 


487 


4998 


596 


518 
528 


538 


549 


558 


568 


578 


588 


598 


608 
618 


628 


638 


645 


659 


669 
678 


689 
698 


786 


THEN PRINT INS$:PRINT" 
{UP}15 RIGHT}"; 

FOR I=8 TO 24 STEP 3:BS 
=S$:FOR J=l TO 2:IF FT 
HEN BS=MIDS$(IN$,I+d,1) 
PRINT" {RVS}"BSL$;:IF I< 
24THEN PRINT" {OFF}"; 
GET A$:IF AS=N$ THEN47@ 
IF (A$>"/"ANDAS<"z")OR(A 
$>"@"ANDAS<"G" )THEN549 
A=-(AS="M")-2*(AS=",")— 








3* (AS=".")-4*(AS="/")—-5 _ 


*(AS="J")-6* (AS="K") 
A=A-7* (AS="L")-8* (AS=": 
")-9* (AS="U" )-1* (AS="I 
")-11* (AS="0")-12* (AS=" 
Pp") 
A=A-13*(AS=S$):IF A THE 
N AS=MID$("ABCD123E456F 
6",A,1):GOTO 549 
IF AS=R$ AND((I=0)AND(J 
=1)OR F)THEN PRINT BS$;: 
J=2:NEXT:1=24 :GOTO559 
IF AS="{HOME}" THEN PRI 
NT BS$:J=2:NEXT:1=24:NEX 
T:F=9:GOTO44G 
IF (AS="{RIGHT}")ANDF TH 
ENPRINT BSL$;:GOTO54@ 
IF AS<>L$ AND AS$<>D$ OR 
( (=) AND(J=1)) THEN GOS 
UB196G :GOTO478 
AS=LS+SS$+L$:PRINT BSLS; 
:J=2-J:IF J THEN PRINT 
{SPACE} L$; :I=I-3 
PRINT A$;:NEXT J:PRINT 
{SPACE}S$; 
NEXT I:PRINT:PRINT" {UP} 
{5 RIGHT }";:INPUT#3,INS 
:IF INS=N$ THEN CLOSE3: 
GOTO226 
FOR I=1 TO 25 STEP3:B$= 
MID$(INS$,1) :GOSUB329:1F 
I<25 THEN GOSUB38@:A(I 
/3)=A 
NEXT:IF A<>CK THEN GOSU 
B1969:PRINT" {BLK} {RVS} 
{SPACE}ERROR: REENTER L 
INE £4]":F=1:GOT044B 
GOSUB1986 :B=BS+AD-SA:FO 
R I=@ TO 7:POKE B+tI,A(I 
) sNEXT 
AD=AD+8:IF AD>EA THEN C 
LOSE3 :PRINT" {DOWN} {BLU} 
** END OF ENTRY ** {BLK} 
{2 DOWN}":GOTO799" 
F=:GOTO449 
PRINT "{CLR} {DOWN} {RVS} 
{SPACE}DISPLAY DATA “:G 
OSUB49@:1F INS=NS$ THEN2 
29 
PRINT" {DOWN } {BLU} PRESS: 
{RVS}SPACE{OFF} TO PAU 
SE, {RVS}RETURN{OFF} TO 
BREAKE43 {DOWN }" 
GOSUB369 : B=BS+AD-SA:FOR 
I=BTO B+7:A=PEEK(I) :GOS 
UB35@ :GOSUB380:PRINT S$ 





; 
NEXT: PRINT" {RVS}"; :A=CK 
:GOSUB359 :PRINT 
F=1:AD=AD+8:IF AD>EA TH 
ENP RINT" {DOWN} {BLU} ** E 
ND OF DATA **":GOTO226 
GET AS$:IF AS=R$ THEN GO 
SUB1989 :GOTO229 

IF AS=S$ THEN F=F+1:GOS 
UB1g8a 

ONFGOTO6 30,660,638 
PRINT" {DOWN} {RVS} LOAD 
{SPACE}DATA “:OP=1:GOTO 
718 

PRINT" {DOWN} {RVS} SAVE 








cs 


PP 


GR 


FD 


716 


726 


738 


746 


758 


768 
776 


788 


798 


888 


816 


828 


838 


846 
858 


865 


876 
88 


895 


960 


9198 


926 
9308 


949 


958 
965 


978 


988 


998 


{SPACE}FILE “:0P=6 
INS=NS$ : INPUT” {DOWN JF ILE 
NAMEE43";INS:IF INS=NS 
{ SPACE } THEN229 
F=9:PRINT" {DOWN} { BLK} 
{RVS}T(OFF}APE OR [RVS} 
D{OFF}ISK: £43"; 
GET AS$:IF AS="T“THEN PR 
INT "T {DOWN } 
IF A$<>"D"THEN73& 
PRINT “D{DOWN}":OPEN15,8 
715, "I@:":B=EA-SA: INS=" 
+INS$:IF OP THEN819 
OPEN 1,8,8,INS+",P,W":G 
OSUB860:IF A THEN226 
AH=INT(SA/256) :AL=SA-(A 
H* 256) :PRINT#1,CHR$ (AL) 
7 CHRS (AH) ; 
FOR I=9 TO B:PRINT#1,CH 
R$(PEEK(BS+I));:IF ST T 
HEN89S 
NEXT: CLOSEl :CLOSE15 :GOT 
0948 
GOSUB1 660 :PRINT" {DOWN } 
{BLK}ERROR DURING SAVE: 
£43" :GOSUB86S :GOTO226 
OPEN 1,8,8,INS$+",P,R":G 
OSUB860:IF A THEN226 
GET#1,AS$,B$ :AD=ASC(AS+Z 
$)+256*ASC(BS$+Z$):IF AD 
<>SA THEN F=1:GOTO859 
FOR I=9 TO B:GET#1,A$:P 
OKE BS+1,ASC(A$+Z$) : IF ( 
I<>B)AND ST THEN F=2:AD 
=I:I=B 
NEXT:IF ST<>64 THEN F=3 
CLOSE] :CLOSEL5:O0N ABS(F 
>G)+1 GOTO96S,97B 
INPUT#15,A,AS:IF A THEN 
CLOSE] :CLOSEL5 :GOSUB19 
60:PRINT"{RVS}JERROR: “A 
$ 
RETURN 
POKE183 ,PEEK(FA+2) :POKE 
187, PEEK(PA+3 ) :POKE188, 
PEEK(FA+4) : IFOP=OTHEN92 
@ 
SYS 63466:IF (PEEK(783)A 
ND1) THEN GOSUB1@69 :PRIN 
tT" {DOWN }]{RVS} FILE NOT 
{SPACE}FOUND “:GOTO699 
AD=PEEK (829) +256*PEEK(8 
38):IF AD<>SA THEN F=1: 
GOTO978 
A=PEEK (831) +256*PEEK(83 
2)-1 :F=F-2* (A<EA) -3* (A> 
EA) : AD=A-AD:GOTO939 
A=SA:B=EA+1:GOSUB1016:P 
OKE789,3:SYS 63338 
A=BS : B=ES+(EA-SA)+1:GOS 
UB1919:0N OP GOTO959:SY 
S 63591 
GOSUB1880 : PRINT" {BLU} ** 
SAVE COMPLETED **":GOT 
0226 
POKEL47,@:SYS 63562:1F 
{SPACE}ST>@ THEN973 
GOSUB198@ :PRINT" {BLU} ** 
LOAD COMPLETED **":GOT 
0228 
GOSUB1@69 :PRINT "{BLK} 
{RVS}ERROR DURING LOAD: 
{DOWN }£43":ON F GOSUB98 
,998, 1998 =GoT0220 
PRINT“INCORRECT STARTIN 
G ADDRESS ("“;:GOSUB360: 
PRINT" )": RETURN 
PRINT"LOAD ENDED AT ";: 
AD=SA+AD: GOSUB366 : PRINT 
D$ : RETURN 








1990 PRINT"“TRUNCATED AT END 


ING ADDRESS":RETURN 


FF 


HC 


AR 


Dx 


PF 


AC 


1816 


1926 


1938 


1649 


1659 


1968 


1876 


188 


19968 


AH=INT(A/256) :AL=A-(AH 

*256) :POKE193,AL:POKE] 

94,AH 

AH=INT(B/256) :AL=B-(AH 
*256) :POKE174,AL: POKE) 

75, AH: RETURN 

IF AD<SA OR AD>EA THEN 

1858 

IF(AD>511 AND AD<46969 
)OR(AD> 49151 AND AD<53 

248)THEN GOSUB1989 :F=0 
:RETURN 

GOSUB1969 :PRINT" {RVS} 
{SPACE }INVALID ADDRESS 
{DOWN} {BLK} ":F=1:RETU 
RN 

POKE SD+5,31:POKE SD+6 
,298:POKE SD,249:POKE 
{SPACE }SD+1,4:POKE SD+ 

4,33 

FOR S=] TO 108:NEXT:GO 

TO1999 

POKE SD+5,8:POKE SD+6, 
240:POKE SD,@:POKE SD+ 
1,98:POKE SD+4,17 

FOR S=1 TO 199:NEXT:PO 

KE SD+4,0:POKE SD,@:PO 

KE SD+1,9:RETURN 


Cc 








Attention Programmers 


COMPUTE! magazine is currently 
looking for quality articles on 
Commodore, Atari, Apple, 
and IBM computers (including 
the Commodore Amiga and 
Atari ST). if you have an 
interesting home application, 
educational program, 
programming utility, or game, 
submit it to COMPUTE!, P.O. 
Box 5406, Greensboro, NC 
27403. Or write for a copy of 
our “Writer's Guidelines.” 
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Moving? 


For address 
changes or 
subscription 
information, 
call toll free 
1-800-727-6937 













MLX 


Tim Victor, Editorial Programmer 


To make it easier to enter machine language 
programs into your computer without ty- 
pos, COMPUTE! is introducing its “MLX” 
entry program for the Apple II series. It’s 
our best MLX yet. It runs on the II, 11+, Ile, 
and IIc, and with either DOS 3.3 or 
ProDOS. 


A machine language (ML) program is 
usually listed as a long series of num- 
bers. It’s hard to keep your place and 
even harder to avoid making mistakes as 
you type in the listing, since an incorrect 
line looks almost identical to a correct 
one, To make error-free entry easier, 
COMPUTE! generally lists ML programs 
for Commodore and Atari computers in 
a format designed to be typed in with a 
utility called “MLX.” The MLX program 
uses a checksum system to catch typing 
errors almost as soon as they happen. 





Apple MLX checks your typing on 
a line-by-line basis. It won’t let you 
enter invalid characters or let you con- 
tinue if there’s a mistake in a line. It 
won't even let you enter a line or digit 
out of sequence, Best of all, you don’t 
have to know anything about machine 
language to enter ML programs with 
MLX. Apple MLX makes typing ML 
programs almost foolproof. 


Using Apple MLX 

Type in and save some copies of Apple 
MLX on disk (you'll want to use MLX to 
enter future ML programs in COM- 
PUTE!). It doesn’t matter whether you 
type it in on a disk formatted for DOS 
3.3 or ProDOS. Programs entered with 
Apple MLX, however, must be saved to 
a disk formatted with the same operat- 
ing system as Apple MLX itself. 

If you have an Apple Ile or IIc, 
make sure that the key marked CAPS 
LOCK is in the down position. Type 
RUN. You'll be asked for the starting 
and ending addresses of the ML pro- 
gram. These values vary for each pro- 
gram, so they’re given at the beginning 
of the ML program listing and in the 
program’s accompanying article. Find 
them and type them in. 

The next thing you'll see is a menu 
asking you to select a function. The first 
is (E)NTER DATA. If you're just start- 
ing to type in a program, pick this. Press 
the E key, and the program asks for the 
address where you want to begin enter- 
ing data. Type the first number in the 


(as 











first line of the program listing if you're 
just starting, or the line number where 
you left off if you've already typed in 
part of a program. Hit the RETURN key 
and begin entering the data. 

Once you're in Enter mode, Apple 
MLX prints the address for each pro- 
gram line for you. You then type in all 
nine numbers on that line, beginning 
with the first two-digit number after the 
colon (:). Each line represents eight 
bytes and a checksum. When you enter 
a line and hit RETURN, Apple MLX 
recalculates the checksum from the 
eight bytes and the address. If you enter 
more or less than nine numbers, or the 
checksum doesn’t exactly match, Apple 
MLX erases the line you just entered 
and prompts you again for the same 
line. 


Invalid Characters Banned 
Apple MLX is fairly flexible about how 
you type in the numbers. You can put 
extra spaces between numbers or leave 
the spaces out entirely, compressing a 
line into 18 keypresses. Be careful not to 
put a space between two digits in the 
middle of a number. Apple MLX will 
read two single-digit numbers instead 
of one two-digit number (F 6 means F 
and 6, not F6). 

You can’t enter an invalid charac- 
ter with Apple MLX. Only the numerals 
0-9 and the letters A-F can be typed in. 
If you press any other key (with some 
exceptions noted below), nothing hap- 
pens. This safeguards against entering 
extraneous characters. Even better, Ap- 
ple MLX checks for transposed charac- 
ters. If you're supposed to type in AO 
and instead enter 0A, Apple MLX will 
catch your mistake. 

Apple MLX also checks to make 
sure you're typing in the right line. The 
address (the number to the left of the 
colon) is part of the checksum recalcu- 
lation. If you accidentally skip a line 
and try to enter incorrect values, Apple 
MLX won't let you continue. Just make 
sure you enter the correct starting ad- 
dress; if you don’t, you won't be able to 
enter any of the following lines. Apple 
MLX will stop you. 


Editing Features 

Apple MLX also includes some editing 
features. The left- and right-arrow keys 
allow you to back up and go forward on 
the line that you are entering, so you 
can retype data. Pressing the CON- 





Machine Language Eniry Program 
For Apple 





TROL (CTRL) and D keys at the same 
time (delete) removes the character un- 
der the cursor, shortening the line by 
one character. Pressing CTRL-I (insert) 
puts a space under the cursor and shifts 
the rest of the line to the right, making 
the line one character longer. If the 
cursor is at the right end of the line, 
neither CTRL-D nor CTRL-I has any 
effect. 

When you've entered the entire 
listing (up <o the ending address that 
you specified earlier), Apple MLX auto- 
matically leaves Enter mode and redis- 
plays the functions menu. If you want 
to leave Enter mode before then, press 
the RETURN key when Apple MLX 
prompts you with a new line address. 
(For instance, you may want to leave 
Enter mode to enter a program listing in 
more than one sitting; see below.) 


Display Data 

The second menu choice, (D)ISPLAY 
DATA, exarnines memory and shows 
the contents in the same format as the 
program listing. You can use it to check 
your work or to see how far you've 
gotten. When you press D, Apple MLX 
asks you for a starting address. Type in 
the address of the first line you want to 
see and hit RETURN. Apple MLX dis- 
plays program lines until you press any 
key or until it reaches the end of the 
program. 


Save And Load 

Two more menu selections let you save 
programs on disk and load them back 
into the computer. These are (S)AVE 
FILE and (L)OAD FILE. When you 
press S or L, Apple MLX asks you for 
the filename. The first time you save an 
ML program, the name you assign will 
be the program’s filename on the disk. 
If you press L and specify a filename 
that doesn’t exist on the disk, you'll see 
a disk error message. 

If you're not sure why a disk error 
has occurred, check the drive. Make 
sure there’s a formatted disk in the 
drive and that it was formatted by the 
same operating system you're using for 
Apple MLX (ProDOS or DOS 3.3). If 
you're trying to save a file and see an 
error message, the disk might be full. 
Either save the file on another disk or 
quit Apple MLX (by pressing the Q 
key), delete an old file or two, then run 
Apple MLX again. Your typing should 
still be safe in memory. 
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cursor, shortening the line by one charac- 










































£139 VTAB 2: HTAB 20: PRINT "E | 93 450 IF K = 21 THEN P = P + (P 
ter. Pressing CTRL-I (insert) puts a space Bat Sines es Senveaie wate eee 
under the cursor and shifts the rest of the N PRINT CHR$ (7): GOTO 13 | 37 479 F = 1:D = 9: FOR P = 1 TO 
line to the right, making the line one g LEN (A$):C$ = MIDS (AS,P 
character longer. If the cursor is at the | #149 E =a +1): IF F > N AND C$ < > 
right end of the line, neither CTRL-D nor | #% 159 PRINT : PRINT "CHOOSE: (E) “ "THEN RETURN 
CTRL-I has any effect NTER DATA";: HTAB 22: PRI 8 489 IF C$ < > " “ THEN GOSUB 
y ; ate NT "(D)ISPLAY DATA": HTAB 520:V(F) = J + 16 * (D = 
___ When you've entered the entire list- 8: PRINT "(L)OAD FILE ¢ 1) 2 V(F):D =D +1 
ing (up to the ending address that you S)AVE FILE (@)UIT": PRIN 5§ 499 IF D > @ AND C$ = " “ OR 
specified earlier), Apple MLX automati- T D = 2 THEN D = @:F =F + 
cally leaves Enter mode and redisplays | “ *6° BEA 90 FURS 7 tyioostr) | 500 NEXT 2 IF D = 0 THEN F = 
the functions menu. If you want to leave 1) THEN NEXT : GOTO 165” F-1 
Enter mode before then, press the RE- | 93 179 ON I GOTO 279,229, 180,200 17 519 RETURN 
TURN key when Apple MLX prompts : POKE 34,9: END 85 528 J = ASC (C$):J = J — 48 - 
yom nth\amiew line address.) (Fanam= 41)" te Sat THEN PRINT CHE AB 53GB pier on eee 
stance, you may want to leave Enter $ (4);"BLOAD";AS;",A"3S $ (A$,4): IF LEN (As) =o 
mode to enter a program listing in more | 4 19g GoTo 158 THEN RETURN 
than one sitting; see below.) 38 299 INPUT “FILENAME: ";A$: IF éF 549 FOR P = 1 TO LEN (AS):C$ 
As < > "" THEN PRINT CHR = MIDS (AS,P,1): IF CS < 
$ (4); "BSAVE";A$;",A"3S3" "9" OR C# > "9" AND CS < 
Display paid Re REANENN sL"s(E— 8) +1 a" OR C8> "2" THEN A= 
The second. menu choice, (DISPLAY | 9 219 gata 159 9: RETURN 
DATA, examines memory and shows the | ¢2 229 GOSUB 599: IF B = 9 THEN 20 559 GOSUB 529:A = A * 16 + J: 
contents in the same format as the pro- 158 NEXT = RETURN 
gram listing, You can useitto check your | * 282 FOR,2 = 2 To.€ STEP eit = | Meo C > Int (B / aoc 5 8° 
work or to see how far you've gotten. T AS; ": L=2 ):¢ = C - 255 * (C > 255) 
When you press D, Apple MLX asks you | ¢ 249 FOR F = 9 TO 7:V(F + 1) = | #579 FORF = 1 7T0 e:C=C #2 
for a starting address. T; in the address PEEK (B + F): NEXT : GOS — 255 * (C > 127) + VIF): 
1 is i UB 569: c=c-2 (c d: 
of the first line you want to see and hit 3069) =) C Se NE, Saeed 
5 2 256 FOR F = 1 TO N:A = ViF NEXT : RETURN 
RETURN. Apple MLX displays program GOSUB 58d: PRINT AS" "3: DA S80 I = FRE (@):A$ = "": FOR 
lines until you press any key or until it NEXT : PRINT : IF PEEK (4 I = 1 TOL:T = INT (A/ 1 
reaches the end of the program. 9152) < 128 THEN NEXT 6):AS = MID$ ("9123456787 
progt 
U4 269 POKE 49168,0: GOTO 150 ABCDEF",A - 16 * T + 1,1) 
Save And Load (¢ 279 GOSUB 599: IF B = @ THEN + ASIA = T: NEXT : RETUR 
, 158 N 
Two more menu selections let you save | 4g 23g FoR B = B TO E STEP 8 1F 599 PRINT "FROM ADDRESS “3: G 
programs on disk and load them back | #& 299 HTAB 1:A = B:L = 4: GOSUB OSUB 538: IF S >A ORE < 
into the computer. These are (S)AVE S580: PRINT AS;": "52 CAL peat A = 9 THEN B = 9: R 
FILE and (L)OAD FILE. When you press SEE NaN ate se ae 699 B=S +88 INT ((A- 9S) 
S or L, Apple MLX asks you for the o 7 8): RETURN 
filename. The first time you save an ML | fs 3g9 GOSUB 479: IF F < > N THE 8 619 PRINT "DISK ERROR”: GOTO 
program, the name you assign will be the N PRINT CHR$ (7);: GOTO 2 156 € 
program’s filename on the disk. If you | ,, .,, 7? y = @ THEN GUSUB Séo: 
press L and specify a filename that IF C < > V(9) THEN PRINT 
doesn’t exist on the disk, you'll see a disk CHRS (7)3;: GOTO 299 
error message. 22320 FOR F = 1 TO &: POKE B+ : 
If you're not sure why a disk error 5 aA ALE ee ERENE All the programs In 
has occurred, check the drive. Make sure | « 335 IF LEN (A$) = 33 THEN AS thi 
there’s a formatted disk in the drive and = 0$:P = O: PRINT CHRS (7 Is Issue Are 
that it was formatted by the same operat- 5 - 
ing system you're using for Apple MLX | # 340 L = LEN, (as):08 = As:0 = available on the 
(ProDOS or DOS 3.3). If you're trying to L$ = LEFTS (A$,P) ready-to-load 
save a file and see an error message, the | & 359 RS = “": IF P < L — 1 THE 
essen i ey 2 pigs ; 
disk might be full. Either save the file on NARS RIGHTS (AS,L COMPUTE! Disk. 
another disk or quit Apple MLX (by | 5. <6 uta 7: PRINT L$3: FLASH 
pressing the Q key), delete an old file or : IF P ¢ L THEN PRINT MID To order a one-year 
two, then run Apple MLX again. Your $ (AS,P + 1,1);: NORMAL = di 
typing should still be safe in memory. PRINT R$; (four- isk) 
78 379 PRINT " "32 NORMAL wee 
& 389 K = PEEK (49152): IF K < criotion 
Apple MLX: Machine 128 THEN 38¢ 4 
pple : Machi ‘ 
Language Entry Program =| sae irk = 13 THEN HTAB 7: PR call toll free 
For instructions on entering this program, INT AS;" “3: RETURN 
eae tefer 8 RCOMRUTE ISG toTyping |g 419 IF K = 32 OR K > 47 AND K 1-800-727-6937 
In Programs” elsewhere in this issue. < 58 OR K > 64 AND K < 7 * 1} 
1 THEN AS = LS + CHRS (K) Please specify which 
§@ 199 N = 9: HOME : NORMAL : PR + R$:P =P +1 
INF SPE REE ME SPORE SA) i) Ch 22 RRS REN S irae computer you are 
2: ON o s 
0 110 VTAB 1: HTAB 20: PRINT "S | sr 439 IF K = 7 THEN AS = LS + “ using. 
Kees ae Ma 
: IF A= RS 
$ (7): GOTO 119 fh 449 IF K = 8 THEN P = P — (P 
&@120S=A > @) atl 
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Classified 





SOFTWAR 


COMMODORE: TRY BEFORE YOU BUY. Best 
selling games, utilities, educational, + classics 
and new releases. 100’s of titles. Visa/MC. Free 
brochure. RENT-A-DISC, Frederick Bldg. #345, 
Hunt'n, WV 25701 (304) 529-3232 


FREE APPLE SOFTWARE 

Over 1,000 Public Domain Programs on 50 
diskettes. $5 each plus $1 for shipping per order. 
Send $1 for catalog, refundable with order. 

C&H ENTERPRISES 

PO Box 29243, Memphis, TN 38127 





DISCOUNT SOFTWARE for most computers. 
FREE CATALOG. Sale: 5.25" DSDD Disks 

25 for $13.95 ppd. WMJ DATA SYSTEMS-C, 
4 Butterfly Dr., Hauppauge, NY 11788 


Cheap Software/IBM,PCjr, Compatibles. 
5.25 or 3.5 disk. For catalog of diskettes 
available for education, games, business, etc., 
Write: Morning Star Industry, Box 3095, 

Ann Arbor, MI 48106 


FREE SOFTWARE for C64, C128, IBM & CPM 
send SASE for info (specify computer) to: 
PUBLIC DOMAIN USERS GROUP 

PO Box 1442-Ai, Orange Park, FL 32067 


MILLION $ “LOTTO BUSTER” PROGRAM 
SCIENTIFIC. HITS JACKPOTS, NO RN/G 
$49.95 Ap Il, Atari, MS/DOS, C64. OH res add 
6% s.tax. Also: FANTASTIC DAILY NUMBER 
FORECASTER! GETS Straight Hits Weekly! 
$42.95. Both: $79.95. Large SASE gets info. 
Z-Way, POB 9017-C, Canton OH 44711 

(216) 875-2512 








More than 200 great ML routines for 64 and 
128, ready to add to your own programs, in 
COMPUTE! Books’ MACHINE LANGUAGE 
ROUTINES FOR THE COMMODORE 64/128. 
Explanations, uses, commented source code. 585 
pages, $18.95. Check your local bookstore or call 
(800) 346-6767 





FREE LIST: CARTRIDGES/SOFTWARE FOR: 
COLECO, ATARI 2600, 5200, 7800, NINTENDO, 
ADAM, XL, XE, Intellivision: Modem: 
414-265-5149, 24 hrs, Villa Video, Box 17085, 
Milw, WI 53217 









words to be set in boldface. 


able issue after receipt. 


call Harry Blair at (919) 275-9809. 





TI-99/4A Software/Hardware bargains. 
Hard-to-find items. Huge selection. 
Fast service. Free catalog. 

D.E.C., Box 690, Hicksville, NY 11801 


CALC RESULT 64 - SPREADSHEET SOFTWARE 
C/R 64 EASY - Single page Cartridge $25 

C/R 64 ADVANCED - 3D - Cart/Disk 32 pages 
w/Help, Graphics, Windows only $45 

Text: Applied C/R w/32 Examples $10 

Call The Order Line 201-445-5998 MC/VISA 


LEARN THE CONSTITUTION! FUN 
Bicentennial educational game for IBM: $35 
(req’s BASIC), or for C64: $25. Basic Fun- 
damentals, 3362 S 2300 E, SLC, UT 84109 


FREE PUBLIC DOMAIN SOFTWARE - Request 
free catalog or send $2 for sample disk & 
catalog (refundable). APPLE, C64-128 (specify) 
CALOKE IND., Box 18477, KC, MO 64133 





FREE! PUBLIC DOMAIN SOFTWARE FLYER! 
IBM & Compatibles - (MS-DOS) Save $$$ 

@ $3.50 per disk! Write to: AP-JP Inc., 

Box 1155, W. Babylon, NY 11704 


WE WILL PAY YOU $20 IN COLD HARD CASH 
if your computer can’t earn $15,000 with 
our business plan. Send $1 (s/h) to: 1111 
Logan Ave. Unit C, Box 106, Winnipeg, MB 
R3E 1R1 Canada. Specify computer model! 


IBM PUBLIC DOMAIN SOFTWARE $3 PER DISK 
Send stamp for cat. Hundreds of disks 

to choose from. Excellent service. Two 

disk sizes now available: 544” @ $3.00 

and 342” @ $5.00. Send for your list. 

Now accepting MasterCard and Visa... 

JDX/C, P.O. BOX 1561, CORONA, CA 91718 








COMPUTE! Classified is a low-cost way to tell over 350,000 
microcomputer owners about your product or service. 


Rates: $25 per line, minimum of four lines. Any or all of the first line set in capi- 
tal letters at no charge. Add $15 per line for boldface words, or $50 for the entire 
ad set in boldface (any number of lines.) Inquire about display rates. 

Terms: Prepayment is required. Check, money order, American Express, Visa, or 
MasterCard is accepted. Make checks payable to COMPUTE! Publications. 

Form: Ads are subject to publisher's approval and must be either typed or legibly 
printed. One line equals 40 letters and spaces between words. Please underline 


General Information: Advertisers using post office box numbers in their ads must 
supply permanent address and telephone numbers. Ad will appear in next avail- 


Closing: 10th of the third month preceding cover date (e.g., June issue closes 
March 10th). Send order and remittance to: Harry Blair, Classified Manager, 
COMPUTE!, P.O. Box 5406, Greensboro, NC 27403. To place an ad by phone, 


Notice: COMPUTE! Publications cannot be responsible for offers or claims of 
advertisers, but will attempt to screen out misleading or questionable copy. 


$$lL OTTO USA S$ 
Pick the winning nuebers in all states 
that have LOTTO games.Easy to run aenu. 
Lottery games for daily picks,LOTTO 40, 


48 etc.Diskette only C-64 or IBM.Allow 
5-4 weeks for delivery.Send $19.95 + 
$3.50 S/H.New York residents add tax. 
To: QUEENS SOFTWARE PO Box 7279 Grand 
Central Station N.Y.,N.Y. 10163-6028 


























$$ WIN $$ 
with our 1 


‘Apple il+ce, Alar, IBM PC.COM 64/428, T, 





TI-99/4A QUALITY SOFTWARE for Business, 
Home and Entertainment ** Bonus Software 
Offer! ** Send for FREE catalog to MICRO-BIZ 
HAWAII, BOX 1108, PEARL CITY, HI 96782 


FOOTBALL COMPU-SCHED™: 1987 NFL 
SCHEDULE/Team logs. 1986 standings/team 
logs/playoff results. Enter scores - create new 
standings/team logs. $19.95 + $1 s/h (CA res 
add tax) College confs available. IBM-PC or 
compatible. Other software: Football Stats-alyzer, 
Sportscard Inventory. Free brochures. Cosoft 
Micro Systems, Dept. CO, 26458 Mocine Ave., 
Hayward, CA 94544 


CANADIANS: MAIL ORDER SOFTWARE FOR 
YOU. Titles by Abacus, Activision, Epyx and 
more. Low prices, wide selection, free catalog. 
CANSOFT, Dept. G, Box 3464, Courtenay BC 
VON 5N5 


HARDWARE 


PC CLONE BUILDER'S MANUAL with parts 

list. Detailed instr for Assembly, Testing & 

Troubleshooting. Covers all switches, jumpers 

& Hard Disk installation: $19.95. Digital 

Solutions, 26 E 14th St. #505C, Indpls, IN 46202 
MISCELLANEOUS 

SAFEWARE INSURES COMPUTERS against 

fire, theft, & power surges for as little as 


$39. Call Safeware, The Insurance Agency Inc. 
at 800/848-3469, Columbus, Ohio. 





PERSONAL COMPUTER OWNERS CAN EARN 
$1000 to $5000 monthly selling simple services 
part time. Free list of 100 best services, 

Write: A.I.M.H.U., PO Box 60369, 

San Diego, CA 92106-8369 





OVER 100 SPECIAL COMPUTER BARGAINS! 
Send $5.95 ch/mo for 12-issue subscription 

of The Bit Parade. Or send $1 cash for sample. 
Mel-Mark Software Int., Inc., POB 2014-P, 
Medford Lakes, NJ 08055 (609) 654-9698 
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WIN 
$ THE LOTTO $ 


With Your Computer! 
Forget random numbers. This program 
for home computers does an actual 
analysis of the past winning numbers. 
This amazing program will quickly pro- 
vide you with all the data you need to 
predict which numbers will likely 
come up in subsequent drawings. All 
consistent lottery winners use some 
kind of system based on the past win- 
ners. Using the real power of your com- 
puter gives you a definite edge. It's 
menu driven and all you do is add the 
latest winners each week and the pro- 
gram does the rest in seconds. On 
screen or printer it shows hot and cold 
numbers, frequency, groups, sums-of- 
digits, odd/ even, wheels numbers and 
more. No thick manual to read. It even 
has a built-in tutorial. 

Ask your software dealer or call or 
write: 


S SOFT-BYTE 
OFT P.O. Box 556 F. Park 
gyre buch 


THE LOTTO PROGRAM is designed for all 
6 & 7 draw lotto games (up to 49 numbers)! 
DON'T PLAY LOTTO WITHOUT IT! 
APPLE & M/S DOS IBM 
COMMODORE & ATARI 
TRS-80 & MODIII, IV . . 
MACINTOSH (super versi 


Please add $2.00 shipping/ 
handling. Fast service on 
charge cards. 


















New Version 4.0! 
Now with Automatic Entries 
And More! 


. And you get a CPA-designed, interactive 
money management/accounting system for home 
and business that can handle 999 different 
accounts and 24,000 transactions a year. 
MANAGE... . Cash, checking, savings, credit card 
accounts, Its Smart Account Reconciler will 
balance the toughest bank statement quickly. 
PREPARE & PRINT... 4 different types of finan- 
cial statements (incl. net worth), 3 different 
inquiry reports, general ledger and accountant’s 
trial balance. 
PLUS . .. Budgeting, financial data base, pop-up 
calculator, graphics, color, tutorial . . , and more. 
AND ... If you own a small business, Money- 
Counts® will track both your business and per- 
sonal finances and report separately on each, 
There's no catch, This is a fully-functional system 
that compares with products selling for $99 or 
more. Not copy protected. 
MoneyCounts® requires an IBM PC, XT, AT or 
compatible computer and a printer. 
Order today and own MoneyCounts® for only $16! 
Towa residents add 4% sales tax; add $3 shipping 
and handling (outside North America add $10). 
VISA and MasterCard orders call: 


1-800-223-6925 
(in Iowa 319/373-0224) 


=<___—= 
———— - 
SS 7 
—_— 
=— Dept.G 
2S" _ 6925 Surrey Drive NE 
SS Cedar Rapids, lowa 52402 
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A WORTHWHILE INVESTMENT 


You may have easily spent thousands on your computer. 
Whatever you spent, it was a wise and worthwhile 
investment! Now make your computer even more valuable by 


subscribing to Compute!, the leading magazine of home, 
educational and recreational computing. 














“1 1 Year/$24 (1 2 Years/$45 JOC14 
Name 

Address 

City. State. Zip. 

















Payment Enclosed Bill Me Later 


For faster service call: 1-800-727-6937 


For Foreign & Canadian Subscribers, please add $6 (U.S.) per year postage. 
©www.commodore.ca 
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COMPUTE!'s 

FREE Reader Information Service 

Use these cards to request FREE information about the products ad- 
vertised in this issue. Clearly print or type your full name and address. 
Only one card should be used per person. Circle the numbers that 
correspond to the key number appearing in the advertisers index. 


Send in the card and the advertisers will receive your inquiry. Al- 
though every effort is made to insure that only advertisers wishing to 
provide product information have reader service numbers, COMPUTE! 
cannot be responsible if advertisers do not provide literature to 
readers. 


Please use these cards only for subscribing or for requesting product 
information. Editorial and customer service inquiries should be ad- 
dressed to: COmPUTE!, P.O. Box 5406, Greensboro, NC 27403. Check 
the expiration date on the card to insure proper handling. 


Use these cards and this address only for COMPUTE!'s Reader Infor- 
mation Service. Do not send with payment in any form. 
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Circle 101 for a one year new U.S. subscription to COMPUTE!; you will be billed for $24 


Please print or type name and address, 
Limit one card per person. 


Name 

Address 

City 

State/Province Zip 
Country 


Phone 
Please Include ZIP Code 








Expiration Date 11/30/87 GA1087 
For Fastest Service, 
SUBSCRIBE oy Fesioet Sonos 
US Order Line 
TO 800-727-6937 
COMPUTE! 


0 $24.00 One Year US Subscription 
0 $45.00 Two Year US Subscription 





Name 
Address 


City State Zip 


O Payment Enclosed D Bill me 
Charge my:O VISA O MasterCard O American Express 
Account No. Expires / 


Your subscription will begin with the next available Issue. Please allow 4-6 TEMay.62 mma: dare, ca 


change at any time. Outside the USA, please add $6 for each subscription, Ineag 
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_ The standard 
equipment on a Laser 128 
is optional on most 
_ %,.. Computers 


The Laser 128 
has built-in 
interfaces for all 
your peripherals, including 

serial and parallel printer 
look at the interfaces, modem and 
Laser 128 Apple-compatible mouse interfaces, a game computer grow with your 
computer, and beginning port and you can hookup a increasing demands. 
with its built-in disk drive and | gypyyyypryyyyyyyyy |e RN iii 
128K RAM of memory, you siart 
to feel that this machine was 
designed with you in mind. The 
Laser 128 is ready-to-run — 


lug it in, insert your program Z 
sol go. Everything Aoi a color or monochrome monitor, 



















It's expandable, too. 
The Laser 128 includes an 
expansion slot to let the 










The Laser 128 is priced 













for you. or even a TV to it. Only the to keep money in your 
aa Laser has this much built-in pocket. The Laser is 
as standard equipment. about half the 


price of an 
Apple, and is 
even less than 
a comparably 
equipped 
Commodore unit. 
You get a lot of computer 
for a little money. 







Choose from 
the largest software 
library in the world. The 
Laser 128 runs Apple lle 
and IIc software, which 
makes it nice for you 
and your family, 
because children 
can use the same 
programs at home 
that they learn on in 
school. The Laser 











Look for the attractive 
Laser packaging at a store 
near you. For more infor- 

mation on the Laser 128 
and the name of 
your nearest 
dealer, contact 
128 is a computer for } es beac 1 = 


; : ome { % 
tN gig 2. aA seine Fee 400 Anthony Trail, 
iil LASER 1 8 Congusc ha, Commoseisa Northbrook, IL 60062, 
Supen Mace, te oMer or call (312) 272-6760. 
SS Se a I I EE ES 
Manufactured by 
VIDEO TECHNOLOGY COMPUTERS, INC. MAKING COMPUTERS AFFORDABLE 
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